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************************************************************************* 

* onze nieuwe VOORJAAR '88 CATALOGUS is nu uit. Stuur ons een kaartje * 

* met je naam en adres + de vermelding 'de MSX gids' * 

* en we sturen hem GRATIS toe. Of kom hem afhalen in de winkel. * 

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ****** * * * * * * * * * * * * * 


in BELGIE 

zijn al onze artikelen verkrijgbaar bij 
Het Computerwinkeltje pvba, 

M Sabbestraat 39, B-2800 MECHELEN 
telefoon (015) 206 645 


HIERONDER EEN OVERZICHT VAN ACTUELE MSX BOEKEN 


MSX Bestsellers Voorjaar 88 

MSX ROM/BIOS Handboek... 55 

Programmeercursus MSX BASIC . 45 

40 Grafische Programma's MSX ..... 29,90 

MSX(2) BASIC en Machinetaal . 32,50 

Turbo Pascal Compleet .. 68 

MSX Computers en de Buitenwereld . 27,85 

MSX Truuks en Tips deel 8 . 25,15 

Werken met Bestanden in MSX BASIC ... 45 

Handboek MSX. 79,50 

BASICODE-3 incl cassette MSX/MSX2 27,50 
Grafische Experimenten voor MSX .. 34,50 

MSX BASIC (Sickler) . 30,75 

Toepassingen voor MSX computers .. 29,50 
MSX Programmeren in Machinetaal .. 32,50 

MSX Machinetaalhandboek . 34,80 

Machinetaal voor MSX Computers ... 39,50 
Tips en Trucs voor de MSX Computer 49,90 
MSX LOGO Spelenderwijs . 27,50 


Z80, BASIC, C, Logo, Pascal 

Zakboekje Z-80 . 25,25 

Machinetaal Z80 - Gestruct . 39,50 
Microsoft BASIC - MSX BASIC ... 69 

De Programmeertaal C . 25 

Logisch Logo... 35 

MSX nederlands 

BASIC Computerspellen MSX .. 27,50 
Zakboekje MSX - BASIC, DOS . 21,50 
MSX Handboek voor Gevorderd. 64,50 
MSX LOGO Spelenderwijs ..... 27,50 
MSX-Computers in Basisschool 39,90 
MSX Computers en Printers .. 27,75 

MSX BASIC Handboek.49,95 

MSX DOS Handboek v iedereen 26,75 

MSX Disk Handboek .. 29,80 

MSX DOS met Disk BASIC . 33,50 

BASIC Programmaas voor MSX . 25,50 


* Speciale MSX boeken aanbieding * 

* MSX EXPOSED . f 5,-* 

* normale prijs f 39,- * 

*********************************** 

MSX nederlands NIEUW! 

*Praktijksoftware voor MSX- 

Computers - ook voor disk . 27,90 
*MSX Computers en de Buitenwereld 
met print-lay-outs ........ 27,85 

*Elektronicaprojecten voor 

MSX Computers . 34,50 

MSX-2 BASIC Handboek. 57,05 

Financiële Programmaas v MSX 25,75 

Het MSX Software boek. 27,90 

Werken met de MSX Computer . 25,75 

De MSX Gebruikersgids . 39,50 

Grafiek en Geluid voor MSX . 49,90 


ACTUELE MSX SOFTWARE (t=tape/d=disk/c=cartridge) 


MSX-2 Software disk, cart 

RF Assembler . 89 

onder MSX-D0S . 

Tasword MSX-2 . 149 

nederlandse tekstverw. 
Snelfaktuur MSX-2 .... 149 
500 debit, 2000 art. 
Kastan - database .... 149 
Fastan fakturering 300,50 

Fistan. 300,50 

financiële administratie 

*USAS konami ..... cart 79 
Metal Gear konami cart 79 
The Chess Game MSX-2 49,90 

Chopper II . 49,90 

Vampire Killer .. cart 79 

MSX Nuttig : 

Musix (composer) . t 14,90 

MSX Artist . t 19 

Tasword nederlands .. t 95 
Tasword MSX engels... t 65 
Aacko Desk ..(3.5"). d 179 
database*tekstverwerker 
SuperKasboek disk •• d 149 
voor privé boekhouding 
en vereniging. 

Werken met MSX tape t 40 

MSX Utilities : 


TURBO 5000 . cart 119 

hardcopy, turboload, 
back-up, disk monitor, 
tapedirectory etc. voor 
MSX1 en 2, tape en disk. 
Diskit -disk toolkit. d 69 


MSX programmeertalen : 

Delta BASIC ... disk d 95 
BASIC uitbreiding voor 
uw MSX computer 
Delta BASIC ... tape t 89 

Hisoft DevPac . t 79 

Hisoft DevPac80 2.0 d 165 
*Turbo Pascal engels d 195 
Hisoft Pascal 80 ... d 165 
Hisoft C++ ......... d 165 

Flash (dis)AssembIer d 119 


MSX Adventures 

Gnome Ranger ..'t 39 

Knight Ore . t 59 

bevat de volgende level9 
adventures: 

Loosed Ore, A Kind of 
Magie, Hordes of the 
Mountain King 
Jewels of Darkness .. t 65 

Silicon Dreams. t 59 


Denk en bordspelen 

Bridge .. t 55 

The Chess Game 1 . t 29,90 


*NASHUA diskettes per 10 * 
5" single sided ..... 15 
3.5" single sided .. 42,50 
3.5" doublé sided. 45 


MSX Sportsimulaties 

BMX simulator . t 

Konami Boxing ... c 

F-l SPIRIT . c 

de nieuwste Konami 
mega ROM met LSI 
Custom Sound Chip. 


MSX Arcade Games: 


10 

65 

79 


t 39 


Computer Hits 10 -3 
10 msx games, oa: 

Buzz Off, Psychedelia, 
Slapshot, 3D Knockout, 
Mutant Monty, Turmoil, 
Time Bandits, Eddie Kidd 





Dawn Patrol ...... t 

34 ; 

,90 

Football Manager .. 

. . 

t 36 

Deathwish III ....... 

t 

32 

Konami Football ... 


c 65 

Dota disk.d 

39 ; 

,90 

Formula 1 Simulator 


t 10 

Feud.. 

t 

10 

Gary Lineker's Soccer 

t 32 

Fire Hawk . 

t 

10 

International Karate 

t 15 

Flash Gordon .. 

t 

15 

Speedking motorrace 

. 

t 10 

*Galaxians .. 

t 

15 

Wintergames . 


t 39 

Game Master Konami ., 

c 

75 

Yie Ar Kung Fu II . 

. . 

c 69 

2 slots nodig 






Gauntlet ... 

t 

39 

MSX F1ightsimulators 



Head over Heels ..... 

t 

36 

747 F1ightsimul• . 

t 

39,90 

Hyperralley .. 

c 

65 

747 Flightsimul .. 

d 

49,90 

*Hunt for Red October 

t 

59 

Chopper I . 

t 

29,90 

*Indiana Jones . 

c 

39 

Chopper I .. 

d 

39,90 

Knightmare . 

c 

65 

Elite .. 

t 

59,00 

The Living Daylights 

t 

39 

Elite disk .. 

d 

69,00 

Mappy . 

t 

15 

Flight Deck . 

t 

29,90 

Mask II . 

t 

39 

F1ight Deck ...... 

d 

39,90 

Masters of Universe . 

t 

32 

Flight Pack 1 .... 

t 

29,90 

Maze of Galious ..... 

c 

75 

737 + North Sea Heli. 

Nemesis - konami .... 

c 

65 

Flight Pack 1 disk 

d 

39,90 

Nemesis II konami ... 

c 

79 

Space Shuttle .... 

t 

39 

Ocean Conqueror . 

t 

15 




Pacman... 

t 

15 

MSX arcade games: 



Penguin Adventure ... 

c 

69 

Aliens (vd film) .. 

., 

t 39 

Road Fighter konami . 

c 

69 

Arkanoid . 


t 36 

*Salamander (konami) . 

c 

79 

A rmy Mnvpfi TtTTTT .. 


t 36 

Sea King ............ 

t 

10 

Rafman TTTT ........ 


t 36 

Storm Bringer.. 

t 

15 

*Beach Head.t 


29,90 

Vampire ............. 

t 

10 
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inkel open van woensdag L/m zaterdag Lussen 11.00 en 17.00 (maandag/dinsdag gesloten) — alle prijzen inclusief BTW 

verzendkosten f 6,- per bestelling - vraag onze nieuwe VOORJAAR '88 CATALOGUS aan. 
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microcomputer tijdschriften boeken en software 
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dealer aanvragen welkom 
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VOORWOORD 


Laat ik eerst heel even terugblikken naar de MSK-dag in Amsterdam. Dit was weer een geslaagde gezellige dag 
en vooral de clubs en de hobbgbladen stonden erg in de belangstelling. Misschien komt er in het najaar wel 
weer iets dergelijks. Zo lang hoeven de MSH-ers echter niet te wachten, want op zaterdag 7 mei houdt de 
Vereniging van Philips Thuiscomputer Gebruikers voor de vierde maal een open dag in de Brabanthallen 
(Kempenhal) in Den Bosch. De zaal gaat open om 10 uur, de toegang is gratis en de deuren gaan om 5 uur weer 
dicht. In het persbericht hierover staat dat de bezoekers hard- en software kunnen kopen of rullen, dus het 
zal wel weer een echte PTC kraak- en kopieerbeurs worden. 

Dan even terug naar vroeger: die goeie ouwe tijd. Wat scholen betreft was dit inderdaad een goede tijd. Alle 
schoolverlaters met een diploma hadden ook examen gedaan in vrijwel alle vakken: 4 talen, rekenen, 
geschiedenis enz. enz. Nu is dat allemaal anders geworden. Door de keuzevakken zijn er nog maar weinig 
leerlingen die examen doen in 4 talen (krijgen we in de toekomst 4-talige gastarbeiders voor de 
kantoorbaantjes?) en de laatste jaren schijnt het vak lezen in het geheel niet meer te worden onderwezen. 
Zo krijgen we inzendingen binnen voor de MSH-INFO en voor de MCM, bestellingen voor software, die door onze 
adverteerders wordt aangeboden, aanvragen voor ’onze’ zomercatalogus en de telefoon staat roodgloeiend 
buiten de tijden die in het blad vermeld staan en soms zelfs *s nachts of in het weekend (vandaar dat 
antwoordapparaat). Omgekeerd wordt bijvoorbeeld de MSB Softshop in Amsterdam regelmatig telefonisch 
lastiggevallen door mensen, die de Gids willen bellen en voor het gemak maar hun telefoonnummer nemen, 
omdat dat meestal op de achterkant van het blad staat (Dit keer toevallig niet). 

De droevige dieptepunten -tot nu toe- waren de vragen over ons grote listingboek (en dan kwaad worden en 

vloeken als we blijven volhouden dat dat boek niet van ons is, maar van de MCM) en de klacht dat de 

MSH-Gids geen iisting controle programma heeft (ook hier weer vloeken en dan uiteindelijk toegeven met de 
opmerking: "dat is dan zeker pas nieuw, ik heb dit nog nooit in mijn Gidsen gehad". 

Een nieuwe is de laatste tijd, dat er mensen bellen die beweren, dat ze een gratis abonnement op de Gids 
zouden moeten krijgen, omdat ze bij V*D een computer hebben gekocht. Ook weer iets, waar wij totaal niets 
van af weten. 

Ik schrijf dit omdat het volgende stukje ook weer gelezen moet worden om allerlei problemen te voorkomen, 
want onze drukker -die ook is verhuisd- sluit de gehele maand juli, zodat ons volgende blad een maand later 

dan normaal verschijnt om netjes in de pas met de drukker te blijven. Volgend jaar komen we dan goed uit 

en verschuift er dus niets (of de drukker zou ineens in augustus moeten sluiten). Voor alle duidelijkheid nog 
1 Keer* 


LET OP! 

De volgende MSX-GIDS 
verschijnt begin SEPTEMBER! 


Dan vind je op de achterkant van de omslag een advertentie van onszelf; een programma van de redactie wat 
veel te groot is om te publiceren zodat we op deze manier maar eens een stuk Ie sof tware aan de m!n 

beknS dC bel J n 9 stellin 9 9 root genoeg en lijden we geen al te aanzienlijke verliezen, dan zullen we 

bekijken of we wat meer software in omloop kunnen brengen. B.v. programma’s die nu naar de ^zenders 
retour worden gestuurd omdat we -tot het eind van het jaar- vol zitten met “stings mzenders 

Tot september, 


Alfred. 
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KRIPY JACK 


& T HbE H 1 • m p f, 


Kripy Jack is een spel voor B4K MSX waarbij de 
machines met diskdrive opgestart moeten worden met 
de CTRL-toets ingedrukt, omdat anders het geheugen 
te krap is. Om het spel geschikt te maken voor disk- 
drivebezitters heeft de redaktie -helaas voor alle 
spitters- alle commentaren uit de REM-regels moeten 
verwijderen. 

Het spel is gemaakt voor 1- of 2- spelers en kan 
worden bestuurd met jogstick of cursortoetsen (bij 2 
spelers zijn 2 joysticks nodig). Het is de bedoeling om 
binnen een vastgestelde tijd diamanten te verzame¬ 
len. Dit doe je door met het figuurtje (Kripg Jack) 
over de diamanten te lopen. Als alle stenen zijn 
verzameld kun je naar het volgende veld door op het 
uitroepteken te gaan staan. Op deze wijze moeten 
alle 34 velden worden doorlopen. 

Elk veld is verder opgebouwd uit muren, verschuifba¬ 
re blokken en vraagtekens (zie ook titelscherm 2). De 
blokken kunnen worden verschoven door er met Kripg 
Jack tegenaan te duwen. De blokken kunnen echter 
niet over elkaar of over een muur worden verplaatst, 
maar kunnen wel over diamanten en tekens worden 
geschoven waarbij deze laatsten dan zijn verdwenen. 
Kijk goed uit met schuiven, want je kunt voor jezelf 
de weg blokkeren. 

In een aantal velden zul je vraagtekens tegenkomen. 
Het pakken van zo’n teken kan verschillende gevol¬ 
gen hebben. Zo kan het zowel bonus- als bad- time 
opleveren; het kan extra levens geven, maar ook de 
weg versperren. Hoe dan ook, het pakken van een 
vraagteken bltyft een gok. 

Het spel wordt vanuit het titelscherm opgestart door 
op de spatiebalk of vuurknop te drukken. Je komt 
dan in een keuzemenu voor de besturing en het 
aantal spelers gevolgd door het eerste speelveld. 
Door het indrukken van F1 verlaat je het spel en 
keer je terug naar het titelscherm. Zit je vast in 
een veld fle hebt b.v. jezelf ingesloten of een blok op 
een diamant geplaatst) dan kun je -mits voldoende 
levens- dit veld opnieuw proberen door op de spatie¬ 
balk of vuurknop te drukken. Doe dit echter alleen 
in noodgevallen, want het kost een leven! 

Succes. 


10 REM KRIPY JACK jr. 

20 REM Door M.R. Janssen 

30 REM <c)1988 MSX-Gids Lelystad 

90 REM 

100 SCREEN1,2,0: WIDTH30: COLOR 15,1,1 

110 CLS:PUTSPRITE 1, (120,80), 15, 0 

120 KEYOFF:CLEAR 2500:DEFINTA-Z 

130 ON STOP GOSUB4220:STOP ON 

140 ON ERROR GOTO 4220 

150 LOCATE 9, 10: PRINT” Walt Please.” 

160 FORA=1TO4000: NEXT:CLS 

170 DIM VL$(35,10),SC(2),LE(2),JO(2) 

180 DIM ST(2),TM2<2),X(35),Y(35),VR<35) 

190 PUTSPRITE1, (120,80),15,0 
200 REM 
210 REM 

220 FORA=384TO720:VPOKEA,VPEEK(A)/2 OR VPE 
EK(A):NEXT 

230 A=1152:FORB=1TO10: READC 



240 FORE=C*8TOC*8+7: VPOKEA, VPEEK(E): VPOKEA 
+1,VPEEK(E):A=A+2: NEXT:NEXT 
250 F0RA=384T0984STEP8:VPOKEA+1, VPEEK<A>: V 
POKEA,0:NEXT 

260 FORA=520TO728: VPOKEA+256,VPEEK(A):NEXT 
270 SPRITES(20)=CHR$(&H60)+CHR$ (&HF0) +CHR$ 
(&HF0 )+CHRS(&H60) 

280 REM 

290 REM 

300 FOR A=0TO8 

310 READ B:IF B=-l THEN 330 

320 K$(A)=K$(A)+CHR$(B):GOTO310 

330 NEXT:COLOR,1,1 

340 REM 

350 REM 

360 FOR A=0TO15:A$=”” 

370 FOR B=1T04:READBS 
380 FOR C=1T016STEP2 

390 A$=A$+CHR$(VAL("4h”+MID$(B$,C,2))) 

400 NEXT:NEXT:SPRITES(A)=A$:NEXT 
410 REM 
420 REM 

430 F0RA=1T037:READB,B$:A$=”” 

440 D=l:FORC=B*8TOB*8+7 

450 VPOKE C, (VAL(”&h”+MID$(B$, D, 2))) 

460 D=D+2:NEXTC, A 
470 REM 
480 REM 

490 F0RA=1T034:READVR(A),X(A),Y(A),TL 
500 D=0:FGRB=1TO10: READVLS(A,B): NEXT: NEXT 
510 REM 
520 REM 

530 VPOKE8208,159 
540 VPOKE8209, 54 
550 VPOKE8210,176 
560 VPQKE8221,79 
570 VPOKE8222,79 
580 VPOKE8223,241 
590 REM 
600 REM 

610 FORA=0TO3:STRIG(A)OFF:PUTSPRITE A,(-32 
,-32):NEXT 

620 R=1037:ON INTERVAL=7 GOSUB2790:INTERVA 
LON 

630 FOR A=8198TO8203:VPOKEA,65 :NEXT 
640 FOR A=8204TO8207:VPOKEA,32 :NEXT 

650 CLS: LOCATE 10,22: PR INT”- >' 

660 LOCATE11,23: PRINT”SOFTWARE” 

670 FORA=1TO80STEP8 

680 PRINT:PUTSPRITE 0,(122,A+2),15,0 

690 F0RB=1T015: NEXT: NEXT 

700 SOUND0,220: F0RA=16T03STEP-1 

710 SOUND8,A:F0RB=1TO60:NEXT;NEXT 

720 SOUND0,0:FORA=1TO3000:NEXT 

730 REM 

740 REM 

750 PUT SPRITE 0,(-32,-32) 
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760 CLS:F0RA=4T07:L0CATE8,A:PRINTCHRS(132) 

;SPC(14);CHR$(132> : NEXT 

770 L0CATE8,3: PRINTSTRING$(16,132) 

780 L0CATE8,8: PR INTSTRING$ (16, 132) 

790 L0CATE1,19:PRINT”WRITTEN BY MICHEL R. 
JANSSEN 

800 LOCATE5,20:PRINT"TRADEMARK 1988 BY 
810 L0CATE2,21: PRINT”MRJ-SOFTWARE PRODUCTI 
ONS 

820 LOCATE 7,15:PRINT”space/key to start” 
830 LOCATE11,5:PRINT"KRIPY JACK" 

840 LOCATE13,6: PRINT”JUNIOR” 

850 STRIG(0)ON:STRIG(l)ON:STRIG(2)0N 
860 ON STRIG GOSUB 1290,1290,1290 
870 REM 
880 REM 

890 SOUND0,0:S0UND8, 15: C=8: B=-1 

900 Y=106:F0RA=1T0138 

910 C=C+1:IFC>7THENC=0:B=-B 

920 Y=Y+B:PUTSPRITE2,(A,Y),15,20 

930 IF Y>113 THEN SOUND1.120 ELSE SOUND1.0 

940 Q=INT(RND(3)):NEXT 

950 B=7:F0RA=-32T0125STEP2 

960 B=B+1: IFB>8THENB=7 

970 PUT SPRITE 1,(A,100),8,B 

980 FORC=1TO60:NEXT 

990 NEXT 

1000 F0RA=138T0255:PUT SPRITE2,(A,Y),15,20 
1010 SOUND 0,A-3:NEXT:SOUND0,0:PUTSPRITE2, 

(-19 -'19') 

1020’fOR D=1T04 

1030 PUT SPRITE 1,(125,100),8,4 
1040 FORC=1TO7000: NEXT 
1050 PUT SPRITE 1,(125,100),8,15 
1060 FORC=1TO1200: NEXTC, D 
1070 LOCATE 13,11:PRINT”bye” 

1080 FORA=150TO0STEP-1:SOUND0, A: NEXT 
1090 L0CATE13,11:PRINT” ” 

1100 FORA=125T0255STBP2 

1110 B=B+1:IFB>8THENB=7 

1120 PUT SPRITE 1,(A,100),8,B 

1130 FORC=1TO60:NEXT 

1140 NEXT 

1150 REM 

1160 REM 

1170 CLS:PUT SPRITE 1, (-32,-32) 

1180 LOCATE7,2: PRINT"KRIPY JACK- junior 
1190 LOCATE1,8:PRINTK1(2);CHR$(30)" SLIDIN 
G BOX” 

1200 LOCATE1,11:PRINTKS(5)jCHR$(30)” MAGIC 
CARPET 

1210 LOCATE1,14:PRINTKS(3);CHR$(30)” DIAMO 
ND” 

1220 LOCATE17,8:PRINTKS(4)j CHR$(30)” WALL" 
1230 LOCATE17,11:PRINTK$(6);CHR$(30)” GOAL 

H 

1240 L0CATE17,14:PRINTK$(7)j CHR$(30)” MAGI 
C WALL" 

1250 LOCATE9,19: PR INT" high. score:”HS 
1260 LOCATE1,21:PRINT"enter goal with all 
diamonds. 

1270 L0CATE5,22: PRINT"and play next stage 

1280 FORA=1TQ15000:NEXT:GOTO760 
1290 REM 
1300 REM 

1310 SOUND0,0:SOUND1,0 
1320 STRIG(0)OFF:STRIG(l)OFF:STRIG(2)OFF 
1330 FORA=0TO11:LOCATE0,A:PRINTSPC(30); :PU 
TSPRITEA, (-32,-32) 

1340 LOCATE0, 22-A: PRINTSPCO0); : NEXT 
1350 FOR A=8198T08199: VPOKEA,97:NEXT 
1360 IF STRIG(JO)THEN 1360 
1370 REM 
1380 REM 

1390 CLS:LOCATE3,22 


1400 PRINT”mrj-software productions 
1410 W=0:FORA=8210TO8212:VPOKEA,208: NEXT 
1420 B=ll:F0RA=144T0162STEP2 
1430 LOCATE B,5:PRINTCHRS(A) 

1440 LOCATE B,6:PRINTCHRS(A+l) 

1450 B=B+1:NEXT 

1460 PUTSPRITE 1,(130,10),8,4 

1470 LOCATE4,9 :PRINT”1 PLAYER WITH KEYBO 

ARD 

1480 LOCATE4,10:PRINT"2 PLAYERS WITH KEYBO 
ARD 

1490 LOCATE4,11:PRINT"1 PLAYER WITH JOYST 
ICK 

1500 LOCATE4,12:PRINT"2 PLAYERS WITH JOYST 
ICK 

1510 W=0:C=15:D=0:Y=72:ST=1 
1520 FORA=0TO2: B=STICK(A) 

1530 PUT SPRITE 2,(21,Y),C,13 

1540 W=W+1: IF W>400 THEN 610 

1550 IF C=15 AND B=1 AND Y>72 THEN Y=Y-8 

1560 IF C=15 AND B=5 AND Y<90 THEN Y=Y+8 

1570 D=D+1: IF D>8 THEN D=0:C=C+14: IF 015 

THEN C = 1 

1580 IF STRIG(A)THEN 1600 
1590 NEXT: GOTO 1520 
1600 AP=1 

1610 IF Y<81 THEN JO(1)=0:JO(2)=0 

1620 IF Y>80 THEN J0(1>=1:J0(2)=2 

1630 IF Y=80 OR Y=96 THEN AP=2 

1640 PUTSPRITE1,(-32,-32) 

1650 PUTSPRITE2,(-32,-32) 

1660 REM 
1670 REM 

1680 CLS:LOCATE10,7:PRINT”GAME CONTROL” 
1690 L0CATE7,10:PRINT”player 1 
1700 IF JOdXl THEN PR INT" keyboard" ELSEPR 
INT”joystick 1" 

1710 IF AP<>2 THEN 1740 

1720 L0CATE7,12:PRINT”player 2 

1730 IF J0(2)<1 THEN PRINT”keyboard”ELSEPR 

INT"joystick 2” 

1740 PLAY"vl3t220o4d8d#8e8o5c4o4e8o5”,”vl2 
t220o3d8d#8e8o4c4o3e8o4 

1750 PLAY”c4o4e8o5c2r4c8d8d#8e8c8d8e4o4e8o 
5d4c2","c4o3e8o4c2r4c8d8d#8e8c8d8e4o3e8o4d 
4c2 

1760 PLAY”r4o4d8d#8e8o5c4o4e8o5c4o4e8”,”r4 

o3d8d#8e8o4c4o3e8o4c4o3e8 

1770 PLAY”o5c2r4o4a8g8f#8a8o5c8e4d8c8o4a8o 

5d2r4”,"o4c2r4o3a8g8f#8a8o4c8e4d8c8o3a8o4d 

2r4 

1780 IF PLAY (0)THEN 1780 
1790 REM 
1800 REM 

1810 H2=0: ST(1)=1:ST(2) = 1:SC(1)=0 
1820 SC(2)=0: TM2(1)=0:TM2(1)=0 
1830 LE(1)=3:LE(2)=3 
1840 IFAP=1 THEN LE(2)=0 
1850 REM 
1860 REM 

1870 P=P+1:IFP>APTHENP=1 

1880 IF LE(1)<=0 AND LE(2)<=0 THEN650 

1890 IF LE(P)<=0 THEN GOTO1850 

1900 CLS:L0CATE11,10:PRINT"PLAYER ”;P 

1910 L0CATE11,12:PRINTUSING”STAGE ##”;ST( 

P) 

1920 IF VR(ST(P)-l)=-5 THEN TM2(P)=0 

1930 FORA=1TO2000: NEXT: CLS 

1940 VP0KE8223,0 

1950 INTERVAL OFF:CLS 

1960 REM 

1970 REM 

1980 FORA=&H1840TO6239:VPOKEA,129:NEXT 
1990 FORA=6880TO6922:VPOKEA,129: NEXT 
2000 LOCATE0,0:PRINT”SCORE TIME LIFE STAGE 
HlSCORE 
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2010 LOCATE0,1:PRINTUSING”#####”; SC(P) 

2020 L0CATE13, 1: PRINTUSING"##" j LE(P) 

2030 LQCATE17,1: PRINTUSING”####”;ST(P> 

2040 L0CATE24, 1: PR INTUSI NG" #####"; HS 
2050 FORA=6208TO6881STEP32:VPOKEA, 129: NEXT 
2060 F0RA=6239T06922STBP32:VPOKEA,129:NEXT 
2070 LOCATE17, 1:PRINTUSING”####”; ST(P) 

2080 H2=0:X2=0:Y2=0:D1=0:D2=0: TM=200-TM2(P 

2090 L0CATE6,1:PR INTUSIHG”####” : TH 
2100 REM 
2110 REM 

2120 FORA=1TO10:LOCATE0,A*2+l:F0RB=1T015: P 
RIHTK$(VAL(MID$(VL$(ST(P),A),B,1)));:Z$=MI 
D$(VL$(ST(P>,A),B,1):IFZ$=CHR$(51)THEND1=D 
1+1 

2130 IF Z$=”0”THEN X=BX16-8:Y=A*16+8 
2140 HEXT:NEXT: VP0KE8223,160 
2150 IHTERVAL ON 

2160 SOUND8,12:B=100:C=5:FORA=1TO200 
2170 REM 
2180 REM 

2190 PUTSPRITE 1, (X,Y-l),9,4 
2200 PUTSPRITE 1, (X, Y-l), 8, 4 
2210 IF STICK(JO<P))<>0 THEH2240 
2220 B=B+C: IFB<90ORB>240THENC=-C 
2230 SOUND0,B:SOUND0,B-5:NEXT 
2240 SOUND0.0: PUTSPRITE 1, <X,Y-l),8,3 
2250 FOR A=1TO200:NEXT 
2260 A=0:T3=0:SP=4:J=JO(P) 

2270 ON KEY GOSUB 510:KEY(1)ON 

2280 STRIG<J)ON:ONSTRIG GOSUB 3660,3660,36 

60 

2290 REM 
2300 REM 

2310 IFTIME>115THENTI ME=0 :TM=TM-5: LOCATE7, 
1:PRINTUSING”###” ; TM:IFTM=0THEN3660 
2320 A=STICK <J):ONAGOSUB2410,2360, 2500,236 
0,2590,2360,2680:GOSUB2360 
2330 T=T+1:IFT>1THENT=0: 

2340 PUT SPRITE 1,(X,Y-l),8,SP+T:Z=VPEEK(Y 
/8*32+(X/8>+6144):IF Z<>252 THEN GOSUB 281 
0 

2350 GOTO 2310 
2360 REM 
2370 REM 

2380 SP=4:T=0:T2=T2+1:IFT2>100THENSP=3 

2390 IF T2M08THEN T2=0 

2400 RETURN2340 

2410 REM 

2420 REM 

2430 IFVPEEK(Y/8X32+(X/8)+6112)=137ANDVPEE 
K(Y/8X32+(X/8)+6048)>235ANDVPEEK(Y/8X32+(X 
/8)+6049 > >235THEN2490 

2440 IFVPEEK(Y/8X32+(X/8)+6112)>235AND VPE 

EK(Y/8X32+(X/8>+6113)>235THENY=Y-8 

2450 SP=5 

2460 RETURN2330 

2470 REM 

2480 REM 

2490 SOUND1,180:LOCATEX/8-1,Y/8-2:PRINTKS( 
1);.‘LOCATE X/8-1, Y/8-3:PRINTK$(2);:SOUND1, 

0:GOTO2440 
2500 REM 
2510 REM 

2520 IFVPEEK(Y/8X32+(X/8 >+6146)=136ANDVPEE 
K(Y/8*32+(X/8)+6148)>235ANDVPEEK(Y/8X32+(X 
/8)+6180)>235THEN2580 

2530 IFVPEEK(Y/8X32+(X/8)+6146)>235 ANDVPE 

EK(Y/8X32+(X/8)+6178)>235THENX=X+8 

2540 SP=7 

2550 RETURN2330 

2560 REM 

2570 REM 


2580 SOUND1,180:LOCATEX/8+1,Y/8:PRINTK$(1) 

; : LOCATEX/8+2, Y/8: PRINTKt(2); : SOUND1,0: GOT 

02530 

2590 REM 

2600 REM 

2610 IFVPEEK(Y/8X32+(X/8)+6208)=136ANDVPEE 
K(Y/8X32+(X/8)+6272)>235ANDVPEEK(Y/8X32+(X 
/8)+6273)>235THEN2670 

2620 IFVPEEK(Y/8X32+(X/8)+6208)>235AND VPE 

EK(Y/8X32+(X/8)+6209)>235THENY=Y+8 

2630 SP=1 

2640 RETURN2330 

2650 REM 

2660 REM 

2670 S0UND1,180:LOCATE X/8-1,Y/8+2:PRINTK 
$(1);:LOCATE X/8-1, Y/8+3: PRINTK$(2) ;: SOUND 
1,0:GOTO2620 
2680 REM 
2690 REM 

2700 IFVPEEK(Y/8X32+(X/8)+6143)=138ANDVPEE 
K(Y/8X32+(X/8)+6141)>235ANDVPEEK(Y/8X32+(X 
/8)+6173)>235THEN2760 

2710 IFVPEEK(Y/8X32+(X/8)+6143)>235 ANDVPE 

EK(Y/8X32+(X/8)+6175)>235THEN X=X-8 

2720 SP=9 

2730 REM 

2740 REM 

2750 RETURN2330 

2760 S0UND1,180:LOCATEX/8-3, Y/8: PRINTK$(1) 

;:LOCATE X/8-4, Y/8: PRINTK$(2): : S0UND1,0:GO 

TO2710 

2770 REM 

2780 REM 

2790 VPOKER-2,231:VPOKER,255:VPOKER+6,231: 
VPOKER+8,255:R=R-1:IFR<1030THENR=1037 
2800 RETURN 
2810 REM 
2820 REM 

2830 IFZ=240THENGOSUB2950 
2840 IFZ=248THENGOSUB2870 
2850 IFZ=244THENGOSUB3490 
2860 RETURN 
2870 REM 
2880 REM 

2890 LOCATEX/8-1,Y/8:PRINTKS(l); 

2900 D2=D2+1:VPOKE8209, 99 

2910 SOUND0,190: FORA=1TO10: SC(P)=SC(P)+1 

2920 LOCATE0,1: PRINTUSING"#####” ; SC(P) 

2930 S0UND8,15-A:F0RB=1T04: NEXTB, A 

2940 VPOKE8209,54:SOUND0,0:S0UND8, 15:RETÜR 

N 

2950 REM 
2960 REM 

2970 SOUND0,0:S0UND8,15 

2980 LOCATE X/8-1,Y/8:PRINTKS(8); 

2990 A$=”":Z=6465:SOUND0,220:FORA=15T03STE 
P-l:S0UND8,A:SOUND0,220-A:F0RB=1T02:Z=Z+1: 
AS=AS+CHR$(VPEEK(Z)):NEXT:NEXT:SOUND0,0:SO 
UND8,15 
3000 REM 
3010 REM 

3020 VR=VR(ST(P)) 

3030 IFVR>0THEN 3080 
3040 IFVR=-1THEN 3120 
3050 IFVR=-2THEN 3170 
3060 IFVR=-4THEN 3270 
3070 IFVR=-5THEN 3370 

3080 LOCATEX(ST(P)),Y(ST(P)):PRINTK$(VR): 
3090 VR=0: GOTO 2310 
3100 REM 
3110 ‘ 

3120 L0CATE8,10:PRINT”BONUS TIME” 

3130 FORA=1TO100:IF TM<200 THEN TM=TM+1 
3140 L0CATE6,1:PRINTUSING”####”;TM:SOUND0, 
A+50:SOUND0, A+55:NEXT 


5 





3150 LOCATE 1,10:PRINTA$ 

3160 SOUND8,0:GOTO 2310 
3170 REM 
3180 ' 

3190 LOCATE 5,10:PRINT”BONUS LIFE NEXT STA 
GE" 

3200 FQRA=1TQ15 

3210 LOCATE11,0: PRINT”life" 

3220 FORB=1TO130: SEXT 
3230 LOCATE11,0: PRINT"LIFE” 

3240 FORB=1TO130:NEXTB,A: LOCATE1,10 
3250 PRINTAS:VR=-3:GOTO2310 
3260 REM 
3270 ’ 

3280 LOCATE 10,10:PRIMT"BAD TIME” 

3290 FORA=1TO70:LOCATE 6,1:PRINTUSING"#### 
"; TM 

3300 L0CATE6,0:PRIMT"time” 

3310 SOUND0,250-TM:F0RB=1T015: MEXT 
3320 IF TM<0 THEN 3360 
3330 L0CATE6,0: PRINT"TIME" 

3340 SOUND0, 255-TM:F0RB=1T015:NEXT 
3350 TM=TM-1: NEXT 

3360 SOUND0,0:LOCATE1,10:PRINTAS:GOTO 2290 
3370 REM 
3380 ' 

3390 PUT SPRITE 1,(-32,-32) 

3400 FOR A=10TO1STEP-1:FORB=1TO180:SOUND0, 
B:NEXT 

~3410 L0CATE5,10:PRINT"TIME TUNNEL IN ACTIO 
N" 

3420 FORB=180TO0STEP-A:SOUND0,B:NEXT 

343@ LOCATE5,10:FEINT"time tunnel in actio 
n" 

3440 NEXT:SOUND0,0:ST(P> =ST<P)-(INT(RND<1) 
*3)t2) 

3450 LOCATE5,10:PRINT”transfer to stage "; 
ST <P) 

3460 FORA=1TO6000:NEXT:LOCATE1,10:PRINTAS 

3470 TM2<P)=TM2(P)t25:IF TM2(P)>150 THEN T 

M2(P)=150 

3480 GOTO 1900 

3490 REM 

3500 ' 

3510 IF D1>D2 THEN RETURN 

3520 LOCATE X/8-1,Y/8:PRINTKS(8); 

3530 PUTSPRITE1,(-32,-32),8,4 
3540 IF VR=-3 

3550 S0UND8,15:FORA=TMTO0STEP-3: 

3560 SOUND0,A+3 

3570 L0CATE6,1:PRINTUSING"####”;A 
3580 LQCATE0 ,1:PRINTUSING"#####”;SC(P) 

3590 SC(P)=SC(P) +1:SOUND0,A:LOCATE0,0 
3600 IFCINT(A/2)=A/2 THEN PRINT”SCORE”ELSE 
PRINT”score” 

3610 NEXTA:SOUND0,0:PUT SPRITE 1,(-32,-32) 
3620 ST(P)=ST(P)tl:IF ST(P)>35 THEN 3960 
3630 GOTO 1900 
3640 REM 
3650 ' 

3660 STRIG(JO(P))OFF:KEY(1)OFF:SOUND8,15:S 
OUND0,0 

3670 INTERVALOFF 

3680 PUT SPRITE 1, (X, Y-l), 8, 15 

3690 LOCATE 0,0:PRINTSPACES(30); 

3700 LOCATE 0,1:PRINTSPACES(30); 

3710 AS=" **** time over ! ! **** 

3720 IF TM<=0 THEN 3780 

3730 FORA=lTOY-2:SOUND0,255-A:PUTSPRITE2,( 
Xt5,A),15,20:NEXT: SOUND0, 0 
3740 SOUND 1,120:FORA=1TO50:NEXT:SOUND1,0 
3750 F0RA=-5T05:PUT SPRITE 2, (Xtl0tA, Yt(A* 
A)-25) 15 20:NEXT 

3760 FÓRA=YTÓYtl6:PUTSPRITE2,(Xtl5,A),15,2 
0: NEXT 


3770 AS="** can i try it again ? **" 

3780 F0RA=1T014:LOCATEltA,0: PRINTMIDS(AS,A 
, 1);:LOCATE29-A,0: PRINTMIDS(AS,28-A,1): 
3790 F0RB=1T018:NEXTB,A 

3800 FORA=0TO3:PUTSPRITEA,(255,Ytl5),1,14: 
NEXT:SOUND8, 15 

3810 FORA=0TO15: PUTSPRITE4,(X,YtA),8,4:FOR 
B=1TO10:NEXTB,A: SOUND0,0 

3820 FORA=15TO0STEP-1:SOUND1, A/2tll8: PUTSP 

RITE4, (X,YtA),15,11:PUTSPRITE5, (X,YtA),8,1 

2:FORB=1TO10:NEXTB,A 

3830 SOUND1,0:SOUND8,0 

3840 INTERVALON:FORA=1TO6000:NEXT 

3850 F0RA=1T05:PUTSPRITEA,(-32, -32):NEXT 

3860 LE(P)=LE(P)-1:INTERVALOFF 

3870 IF LE(P)<=0 THEN 3910 

3880 GOTO1850 

3890 REM 

3900 * 

3910 IF SC(P)>HS THEN LOCATE11,12:PRINTSPC 
(12):LOCATE10,13:PRINT”HIGH SCORE”:HS=SC(P 
) 

3920 F0RA=9T012tH2:LOCATE8,A:PRINTSPC(14): 
NEXT 

3930 LOCATE12,10:PRINT"PLAYER"P 
3940 LOCATE10,11:PRINT” game over! " 

3950 FORA=1TO5000: NEXT:GOTO 1850 
3960 KEY(1)OFF:STRIG(JO(P))OFF: CLS 
3970 SQUND0 ,0 
3980 REM 
3990 * 

_4000 FORA=0TO5:PUTSPRITEA,(-32, -32) : NEXT 
4010 PLAY"V15T25504C6D6F6A2 
4020 LOCATE10,10:PRINP’player "P 
4030 FORA=1TO4000: NEXT 
4040 LOCATE11,2:PRINT"kripy jack” 

4050 LOCATE12,8:PRINT"PERFECT !” 

4060 L0CATE6,10:PRINT"ALL LEVELS COMPLETED 
,4070 LOCATE8,15:PRINTLE(P)"lives left." 
4080 LOCATE11,12:PRINTUSING"SCORE:#####";S 
C(P) 

4090 FORA=1TO6000: NEXT 

4100 FORA=LE(P)TO0STEP-1 

4110 L0CATE8,15:PRINTA:SOUND8,15 

4120 FORB=200TO0STBP-2:SOUND0,Bt20:SOUND0, 

B 

4130 SC(P)=SC(P)tl:L0CATE17,12:PRINTUSING” 
#####”;SC(P):NEXT 
4140 FORC=1TO1000: NEXT: NEXT 
4150 L0CATE8,15:PRINTSPC(20) 

4160 LOCATE12, 15: PRINT"game end” 

.„4170 LE(P)=0: V=0 

4180 LOCATE2,21:PRINT”press space key to c 
ontinue" 

4190 V=Vtl:IF¥>1500 THEN 1870 

4200 L0CATE2,21:PRINT"PRESS SPACE-KEY TO C 

ONTINUE" 

4210 GOTO 1870 
4220 REM 
4230 ’ 

4240 SCREEN0 :COLOR 14,1,1 

4250 PRINT:PRINTSPC(12);"KRIPY JACK 1988 

4260 ONERRQR GOTO 0 

4270 END 

4280 REM 

4290 ’ 

4300 DATA 75,82,73,80,89,32,74,65,67,75 
4310 REM 
4320 ' 

4330 DATA 255,252,31,29,29,252,252 
4340 DATA 30,-1,252,252,31,29,29 
4350 DATA 252,252,30,-1,136,138,31 
4360 DATA 29,29,137,139,30,-1,248 
4370 DATA 250,31,29,29,249,251,30,-1 
4380 DATA 132,132,31,29,29,132,132 
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4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 


DATA 30,-1,240,242,29,29,31,241 
DATA 243,30,-1,244,246,29,29,31 
DATA 245,247,30,-1,129,129,31 
DATA 29,29,129,129,30,-1,236 
DATA 238,31,29,29,237,239,30,-1 
REM 
» 

DATA 000000C7EFF8D0C7 
DATA C7C0C6C6C6000000 
DATA 0000009FDFC3C3C3 
DATA 8303677E3C000000: MR 

VOVilliUülOÜOl/1 


J1510 DATA 7e7f3f0f00lcl800 


4520 DATA C0f0f8d88cac8cfe 
4530 DATA 7efefcf000307870:VR 
4540 DATA 030flflb3135317f 
4550 DATA 7e7f3f0f000cle0e 
4560 DATA C0f0f8d88cac8cfe 
4570 DATA 7efefcf000381800:VL 
4580 DATA 030flflb313531?f 
4590 DATA 7e7f3f0f000cle0e 
4600 DATA c0f0f8f8fcfc8cfe 
4610 DATA 7efefcf000307870:SK 
4620 DATA 030flflb3135317f 
4630 DATA 7e7f3f0f000cle0e 
4640 DATA C0f0f8d88cac8cfe 
4650 DATA 7efefcf000307870:SO 
4660 DATA 030flfIf3f3f3f7f 
4670 DATA 7e7e3f0f000de0e 
4680 DATA C0f0f8f8fcfcfc3e 
4690 DATA 3efefcf000381800:AL 
4700 DATA 030flflf3f3f3f7c 
4710 DATA 7c7f3f0f001cl800 
4720 DATA c0f0f8f8fcfcfcfe 
4730 DATA 7efefcf000307870:AR 
4740 DATA 0003070f0f0flflf 
4750 DATA lfIf0f07001c0e06 
4760 DATA 80e0d0d0e8f8fcfc 
4770 DATA fcfcf8e008387020:RG 
4780 DATA 0003070f0f0flflf 
4790 DATA lfIf0f0700010301 
4800 DATA 80e0d0d0e8f8fcfc 
4810 DATA fcfcf8e000c0e0e0:RD 
4820 DATA 010?0b0bl71f3f3f 
4830 DATA 3f3fIf07101c0e04 
4840 DATA 00c0e0f0f0f0f8f8 
4850 DATA f8f8f0e000387060:LG 
4860 DATA 01070b0bl71f3f3f 
4870 DATA 3f3flf0700030707 
4880 DATA 00c0e0f0f0f0f 8f8 
4890 DATA f8f8f0e00080c080:LD 
4900 DATA 01010f0f01010l0l 
4910 DATA 0101010000000000 
4920 DATA 8080f0f080808080 
4930 DATA 8080800000000000;KB 
4940 DATA 0000000000000000 
4950 DATA 0000071f3f7f7f7f 


4960 DATA 0000000000000000 


4970 DATA 0000e0f8fcfefefe:KB 
4980 DATA lf3fffffffff lf00 
4990 DATA 0000000000000000 
5000 DATA 00ffC0C080800000 
5010 DATA 0000000000000000;HD 
5020 DATA 1010101010101010 
5030 DATA 1010101010101010 
5040 DATA 0000000000000000 
5050 DATA 0000000000000000;ST 
5060 DATA 030flfIf3f3f317f 
5070 DATA 7e7f3f0f000cle0e 
5080 DATA c0f0f8f8fcfc8cfe 
5090 DATA 7efefcf000307870:BG 
5100 REM 


5110 ’ 

5120 DATA 48,0000fc848484fc00 
5130 DATA 49,0000040404040400 


5140 DATA 50,0000fc04fc80fc00 
5150 DATA 51,0000f C 04fc04fc00 
5160 DATA 52,00008484fc040400 
5170 DATA 53,0000fc80fc04fc00 
5180 DATA 54,00008080fc84fc00 
5190 DATA 55,0000fc0404040400 
5200 DATA 56,0000fc84fc84fc00 
5210 DATA 57,0000fc84fc04fc00 
5220 DATA 33,183c3c3cl8180018 
5230 DATA 46,0000000000181800 
5240 DATA 81,ffffffffffffffff 
5250 DATA 136,ff406070787c7e7f 
5260 DATA 137,7f7e7c78706040ff 
5270 DATA 138,ff02060ele3e7efe 
5280 DATA 139,fe7e3ele0e0602ff 
5290 DATA 248,0fIe3f6d763f3f16 
5300 DATA 249,Ie0b0e0706030100 
5310 DATA 250,e0f0f86cdcf8f8d0 
5320 DATA 251,f0a0e0c0c0800000 
5330 DATA 252,0000000000000000 
5340 DATA 129,ffffffffffffffff 
5350 DATA 130,ffffffffffffffff 
5360 DATA 132, efefef00f bfbfb00 
5370 DATA 236,ff80808080808080 
5380 DATA 237,80808080808080ff 
5390 DATA 238,ff01010101010101 
5400 DATA 239,01010l0l0i0i0iff 
5410 DATA 240,ff80838f9e9c8081 
5420 DATA 241,83838380838380ff 
5430 DATA 242,ff01clf1793979f1 
5440 DATA 243,el810101010l0iff 
5450 DATA 244,ff80818387878783 
5460 DATA 245,83818180818180ff 
5470 DATA 246,ff0181clelelelcl 
5480 DATA 247,cl818101818101ff 
5490 REM 
5500 REM 
5510 REM 
5520 REM 

5530 DATA -4,0,0,0 

5540 DATA"041321141411111", "14141424141444 
2”,"141414141414311”,”141421341414211” ”12 
1114141211323” 

5550 DATA”141421341414212","14141414141431 
3”,"141414141414211","141414211414444" "54 
1132141411316” ’ 34 

5560 REM 
5570 REM 

5580 DATA 8,6,11,0 

5590 DATA"441111112144444”,"41222112111411 

46iÏ211211121” 11121 " ,,,21U41212321232 ”’” 21 
5600 DATA”21 1441212321232",”32113211212121 
2» ”412221111204121”, "441Ü1441114115-V-44 

4444444444444" 44 

5610 REM 
5620 ’ 

5630 DATA -1,0,0,0 

5640 DATA”441114111111144",”4121141lo 10022 

4" ”412211122111121”,”412323232144123”,”41 

2112112144121” 

5650 DATA”312112112144121”,”41211611211112 
1”,”412144412111211”,”112144412122114”,”44 
1110111115244” 

5660 REM 
5670 * 

5680 DATA -4,0,0,0 

5690 DATA"421112311111111”,”04141424242224 

2414321141111 2111111 ’’ 1432 114111144 *”*” 
5700 DATA"111114244143341”,”25111111114334 

1",”111444441442241”,”141411141411112” ”32 

1116111234211 ’ ^ 

5710 REM 
5720 ’ 

5730 DATA 0,0,0,0 








5740 DATA”021111211111231”,"22444111414441 
1",”112111414111222","411121411121111","41 
4441421444441 

5750 DATA"421111411111111”,"12141241214424 

1","222411111144121","114421412411221","61 

2311412312111 

5760 REM 

5770 ' 

5780 DATA 6,0,21,0 

5790 DATA”312321434121123",”11121121121121 
1","212112312312112”,"321121121121121","21 
1211231211211 

5800 DATA”112112112112112”,"12112132132112 

3","211211211211212","112112112112111","02 

1121434123215 

5810 REM 

5820 * 

5830 DATA 4450 

5840 DATA"111411111111434",”14141222214141 
1","146411112141421”,"114424412141411",”21 
2111112341414" 

5850 DATA"114144442411411”,”14414413211444 
1","121141121121111","141411211211441”,”11 
1112512014311" 

5860 REM 
5870 ' 

5880 DATA 0,0,0,0 

5890 DATA" 11121-1114112126”, ”12-12122141312-1 
0","123212114212121",”122212124121312","12 
1112114212121" 

5900 DATA”121222214111211","12121111421212 
1","121211444441112","121212411142121”,"11 
1221115111213” 

5910 REM 
5920 ’ 

5930 DATA 0,0,0,0 

5940 DATA”113413414314611","22211411141122 
2”,"111141111141111","143411424114341","11 
4114111411411” 

5950 DATA”121141111141121" ,”41141142411411 
4","414114111411414","414141121141414",”43 
4343404343434" 

5960 REM 
5970 * 

5980 DATA -2,0,0,0 

5990 DATA"120432311413231”,"11441112141412 
1”,”121142441111442",”141111231244111” , "14 
4222444111131 

6000 DATA”341111434444441”,”12134341413111 
1”,”141111212141112","141244414444221” , "52 
1111111111116 
6010 REM 
6020 ’ 

6030 DATA 0,0,0,0 

6040 DATA”671717171717173",”07121712171217 
1”,"171217123712171","171237121712371",”17 
1217121712171" 

6050 DATA”121712171217171”,"12171237121717 
1”,"123712171237171","121712171217111",”37 
1717171717111” 

6060 REM 
6070 ’ 

6080 DATA 0,0,0,0 

6090 DATA"410141111111464",”32223222322212 
1”,”411141114111411","411141114111411”, "32 
2232223222311 

6100 DATA"411141114111421","41114111411141 

1",”324232223222322","411141114111411","41 

3111314131111 

6110 REM 

6120 ’ 

6130 DATA 1,6,15,0 

6140 DATA"123431434111121”,"12114121111422 
3";"141111444411121”,"144444433444144" , "12 
1111111445113" 


6150 DATA"112444433444144","12146443341414 
1","212444444412221","121121311232023","31 
1121121412121" 

6160 REM 
6170 ’ 

6180 DATA 0,0,0,0 

6190 DATA"311111111111111","44444444444444 
1”,"314353431212121","114313461121111","22 
1212444432123" 

6200 DATA"114323401121144”,"11211141123212 
1”,"224222444121123",”111111111232121","44 
4444444444444” 

6210 REM 
6220 ’ 

6230 DATA 0,0,0,0 

6240 DATA"411112111111123”,"41214114111412 
1",”414142114341121”,"111211214413441","12 
1321114434441 

6250 DATA”321211244441121”,"22141243121111 

1","111411141414111”,”222142141214222","11 

1643121112110 

6260 REM 

6270 ' 

6280 DATA 0,0,0,0 

6290 DATA”011112111211111","22211212111424 
1”,"111121144414111”,"122221132114144","11 
1114412244144 

6300 DATA"444141341144111”,"41114141114422 

1”,"114411414141111","123422114141222","12 

1411146141113 

6310 REM 

6320 ’ 

6330 DATA 4,28,7,0 

6340 DATA”611111111111125","11224441444212 
3”,”424141212111141",”111131212343121","21 
4444434111141 

6350 DATA”111111444222441" , ”11144211211114 

1”,"344411144241121","123411121114121","13 

2134113734320 

6360 REM 

6370 ’ 

6380 DATA 0,0,0,0 

6390 DATA"344111111112111","11111222222212 
1”,"222222113112121”,”113112222222121” , "22 
222211111212" 

6400 DATA”111112222222121","22222211311212 
1","113112222222121",”222222111112123",”01 
6112114431121" 

6410 REM 
6420 ’ 

6430 DATA 0,0,0,0 

6440 DATA"731144313441137","32211122211122 
3","111221111122111","421112212211124”,"31 
2111720111213 

6450 DATA"312111627111213","42111221221112 

4","111221111122111","322111222111223”,"73 

1144313441137 

6460 REM 

6470 ' 

6480 DATA 8,2,5,0 

6490 DATA”444344434443434",”45121112111212 
6","314114101411111","414444444444441”,"11 
4444444444441" 

6500 DATA”124444444444441","11444444444444 
1",”214444444444441”,"111125111211121” , "32 
4444411112111" 

6510 REM 
6520 ' 

6530 DATA 0,0,0,0 

6540 DATA”111111111343111”,”11444444414142 
1",”224312134141411","114111114141412" , "12 
4421244141411 

6550 DATA"111131312141421","44111211231341 
1”,”134421244444412","221112112111113","60 
1411212111144 
6560 REM 


8 



6570 1 

6580 DATA 0,0,0,0 

6590 Dm-i ii i i i Hl i i 1443» 14144414121111 

«iÏHHHijr 44441 "'" 6412kl4 ^““''”« 

6600 DATA”311114141414113”, ”12221411121421 
U343211U }}} 414111 "." 1 222U 111 2 1 4lll^-ii 
6610 REM 
6620 ’ 

6630 DATA -5,0,0,0 

6640 DATA”411211144111211»,»4l2114344'Uiio 

iiinMumi 234121 ’''” 012444 44 

6650 DATA” 41112243142211 V* 99 11443174471 

1114111U1115 444314 " 112241 
6660 REM 
6670 ' 

6680 DATA 0,0,0,0 
6690 DATA--021212121212121”,-'21121232123210 

1”,”112121121212123»,-221121212112121” »n 

2213212121212” , 11 

6700 DATA--221112121321212”, ”13122132121212 
1”, ”222112212132126», •• 111221112121211» «22 
2131221212132” , 22 

6710 REM 
6720 ’ 

6730 DATA 0,0,0,0 

6740 DATA-411141114111111»,-11221122112212 

U2ni2iii2iï” 3U31 ”’" 144431443144344 ”'" 01 

^T 5 ,l ?F A ’ ,6141214121412 13” ,” 14443144314434 
1141114111 lil” 31431 " ’ ’’H22U221122122», ”41 

6760 REM 
6770 - 

6780 DATA -2,0,0,0 

6790 DATA”312144444441213”,”11211111111121 
1”, ”444444151444444», »411lilllinuu» 1 H 1 1 
2222222222214» lliiii114 • 41 

6800 DATA” 412311161113214”, ■• 414122222221 d 1 
4”,”114123111321411”,»124121222121421» »13 
4121202121431» “ - 13 

6810 REM 
6820 ’ 

6830 DATA 0,0,0,0 

6840 DATA”412212121212120”,”41211212321212 

4441121211111» 12111 ''’” 4121 2 ^"^” 44 

6850 DATA» 321112121222222”,”11121212111113 

1,"444441122222222”,”321112111112111” »11 
1212111211123” 111^111112111 , 11 

6860 REM 
6870 * 

6880 DATA 0,0,0,0 

6890 DATA”321111202111123» ”11121126211211 
1”,"222222222222222”,”111111141111111” »oo 
2222141222222” UUin - 22 

f 141 ? 11111 ”."22221214121222 

12 i 2 Ï 4 lI}U 4 3 2 1U ' 221212141212121 ”>" 31 

6910 REM 
6920 - 

6930 DATA 0, 0, 0, 0 

?" 4 " " 12-2-212121313 

J- , 1^1232321212121”, 121212121212123» »io 
1222121212121” 1^1^1^1^12123 , 12 

6950 DATA»121212121212121”,”12121212121910 

3»,”021212123232121”,”121212121212121” »ll 
1212121212121” , 12 

6960 REM 
6970 - 

6980 DATA 0,0,0,0 


6990 DATA”421321141123124" " 20221124 .P 1 1001 

^i^iM}iJir iii23 "'' 2i2i4ii2?iii212 "^ 4 

14444,, ' ,,21214 ii 2 H4121 
132114H23124 11 ’ ” 212111 242112262-', •• 42 

7010 REM 
7020 ’ 

7030 DATA 6,28,11,0 

DATA » 314311111113 413»,-11414422244141 
2121202121218 341414 ”’” 412121 222121214” , ”51 
7050 DATA-412121222121214»,”41414311134141 

SiH 4 ^;^?! 441414 "''' 114 " 11 ” 1 ” 411 "”! 

7060 REM 
7070 ' 

7080 DATA 0,0,0,0 

7090 DATA--314134314314134-,” 1141141141 i4-n 

41141141 HllJ 224224 ”’" 1141 4114114114 ’ 
I» 0 1 ? 1 ?f TA ” 2242242 24224224”, ”11411411411411 

niïuiiiiln 114114 "’" 2242242242 42 ^ 4 ' 

7110 REM 
7120 ' 

7130 DATA 0,0,0,0 

2» 4 ” 121312131^2^31 o? 4 ^ 2 of 1,1 ' "2i2i2i23.21.2121 

liisltltlïlh• 21212121 212121 2 .',”16 

ï’^^iamüfi 1 ?!?!? 12 .!?]?^;" 12131213121312 
i - 31^121212121212”,”141214121412141" ”01 
2121212121212 i4i ,21 
7160 REM 
7170 ' 

7180 DATA 0,0,0,0 

7190 DATA”121212323212121”,”21212121212121 

12121 !lf lf123 212121 ”' ' ,212121 I™I”f"I! 

7200 DATA-212121262121212”,"32121212121212 
3",”212121212121212”,”121212121212121” 
2323202323212 ' 21 
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10 * ***********t*********tt****ttt 
20 ’ * % 

3® ’* SCHARRELEI * 
40 ’ * * 

50 ’* Ad Schouwenaars Apeldoorn * 

60 ’ * * 

70 '* (c)1988 MSX-Gids Lelystad * 

80 ’* * 

90 - mmmmmmmmmm 

100 ’ 

110 KEYOFF:COLOR,12,12:SCREBN2,2,0 

120 CLEAR 400,41000!:QQ=RND(-TIME) 

130 DEFINTA-Y:OPEN"GRP: ”AS#1 

140 DEFUSR2=342 

150 FOR Y=31 TO 159 STEP 64 

160 PLAY”S10M450O5GAE.GAD.GAB.GAC.. 

350O3EAG.DAG.BAG.CAG..” 

170 FOR X=31 TO 223 STEP 64 
180 R=INT(RND(1)*3) 

190 CIRCLE(X,Y),R+25,15,,,.8 
200 PAINT(X,Y),15 
210 CIRCLE(X+R, Y-R>, R+10,10 
220 PAINT(X+R,Y-R),10:NEXT:NEXT 
230 ' 

240 COLOR11:PRESET(74,61),12 
250 PRINT#1," SCHARREL-EI” 

260 PRESET(75,61),12 
270 PRINT#1 ," SCHARREL-EI” 

280 PRESET(62,123),12 

290 PRINT#1," Ad Schouwenaars” 

300 PRESET(62,124),12 

310 PRINT#1,” Ad Schouwenaars” 

320 FORW=0 TO 1500:SEXT 
330 ’ 

340 LINE(67,58)-(189, 130),12,BF 

350 PRESET(65, 62), 12 

360 PRINTfl,” PROBEER EIEREN” 

370 PRESET(65,77),12 

380 PRINT#1," TE VANGEN MET" 

390 PRESET(65,92),12 

400 PRINT#1,” JE MAND; NA 10” 

410 PRESET(65,107),12 

420 PRINT#1," MISSERS IS HET” 

430 PRESET(65,121),12 

440 PRINT#1,” SPEL AFGELOPEN.” 

450 FOR W=0 TO 4500: NEXT 
460 ’ 

470 LINE(67,58)-(189,130), 12,BF 

480 PRESET(65, 65), 12 

490 PRINT#1,” NA HET VANGEN” 

500 PRESET(65,75),12 

510 PRINT#1,” WORDT DE MAND” 

520 PRESET(65,85),12 

530 PRINT#1,” ONDER DE LIFT” 

540 PRESET(65,95),12 

550 PRINT#1,” GEPLAATST, EN” 

560 PRESET(65,105),12 
570 PRINT#1," WORDT HET EI” 

580 PRESET(65,115),12 

590 PRINT#1,” AFGEVOERD.” 

600 FOR W=0 TO 4500:NEXT 
610 ’ 

620 LINE(67,58)-(189,130),12,BF 

630 PRESET(60,60),12 

640 PRINT#1, " n » 

650 PRESET(60,68),12 

660 PRINT#1,” |i» 

670 PRESET(60,76),12 

680 PRINT#1," ,-,,-, ij» 

690 PRESET(60,84),12 

700 PRINT#1,” I<-||->| II” 

710 PRESET(60,92),12 

720 PRINTfl,” 1 -’■-' o» 

730 PRESET(60,100),12 


","S10M 



740 PRINT#1," 

750 PRESET(60,108),12 
760 PRINT#1,” 


I— 1 L —*)" 


J M 


770 PRESET(60,118),12 

780 PRINT#1,” (1) (2)» 

790 FOR W=0 TO 1000:NEXT 
800 B=USR2(0) 

810 PRESET(60,127),12:PRINT#1,"geef keuze” 
820 SP$=INPUTS(1) S 

830 IF SP$=”1” OR SP$=”2” THEN 840 ELSE 82 
0 


840 SK=VAL(SPS)-l 
850 ' 

860 CLS: SB=0 : SC=0 : HI=0 
870 FOR W=0 TO 1000:NEXT 

880 ’-retour -— 

890 CLS:COLOR, , 1 

900 LINE(0, 173)-(255,191),13,BF 

910 LINE(9, 0)-(26,172),7,BF 

920 LINE(0,0)-(255, 8),15,BF 

930 LINE(200, 0)-(220,8), 11, BF 

940 COLOR15:GOSUB 1780 

950 XS=1: MIS=0 :MY=166:MX=120: GE=0 

960 FOR W=0 TO 1000:NEXT 

970 ’ 


980 ON SPRITE GOSUB 1340 
990 SPRITE ON 


1000 PUT SPRITE 2, (MX, MY) ,1,2 
1010 EX=INT(RND(l)*210+30): EY=0 
1020 PUT SPRITE 3,(EX,EY),15,3 
1030 ON INTERVAL=2 GOSUB 1200 
1040 INTERVAL ON 
1050 R=STICK(SK) 


160^1240^ 11 60 UB 1160 ’ 116011290 ’ 11601116011 

1070 IF EY<181 THEN 1050 ELSE SPRITE OFF:G 
OSUB 1600 
1080 * 


1090 WT=INT(RND(1)*500+100) 

1100 FOR V=0 TO WT 
1110 R=STICK(SK) 

160 0 1240 R 1160 UB 11601129 ®>1160,1160,1 
1130 NEXT 
1140 GOTO 990 
1150 ' 


1160 RETURN 

1170 ' ,-, 

1180 ’ jel neer| 

1190 ’ i-1 

1200 INTERVAL STOP:VPOKE 6924,EY:EY=EY+7+X 
S:RETURN 

1210 • |-, 

1220 ' j1InksI 
1230 ' 1 -* 


1240 MX=MX-6:IF MXC10 THEN MX=10 
1250 VPOKE 6921,MX:RETURN 

1260 • |-, 

1270 ’ I rechts I 
1280 ’ 1 -1 
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1290 MX=MX+6:IF MX>240 THEN MX=240 
1300 VPOKE 6921,MX:RETURN 

1310 ' |- ) 

1320 ' jgevangenj 
1330 ’ 1 - 1 

1340 SPRITEOFF:INTERVAL STOP:EY=MY-5 
1350 FOR MX=MX TO 10 STEP-1 
1360 VPOKE 6921,MX: VPOKE 6924,EY:VPOKE 692 
5, MX:NEXT 

1370 FOR EY=EY TO 1 STEP-2 

1380 VPOKE 6924,EY 

1390 LINE(9,EY+8>-<26,EY+9),4,BF 

1400 LINE(9,EY+10)-(26,EY+11), 7, BF 

1410 LINE(9,9)-(26,10),7,BF 

1420 SOUND2,EY+16:S0UND3,0:S0UND9, 15 

1430 NEXT:SOUND9,0 

1440 SC=SC+(15*XS):GE=GE+1 

1450 COLOR 1 

1460 IF GE<10 THEN 1470 ELSE IF GE<100 THE 
N 1480 ELSE 1490 

1470 LINE(200,0)-(220,8),11,BF:GOTO 1500 

1480 LINE(200,0)-(230,8),11,BF:GOTO 1500 

1490 LINE(200,0)-(240,8),11,BF 

1500 PRESET(200,1),11:PRINT#1, GE 

1510 PRESET(201,1),11:PRINT#1,GE 

1520 IF XS=4 THEN 1560 

1530 IF SO300 THEN XS=4:GOTO 1560 

1540 IF SO200 THEN XS=3;G0T0 1560 

1550 IF SC>100 THEN XS=2:GOTO 1560 

1560 RETURN 1090 

1570 ’ |-, 

1580 ’ Iei valt| 

1590 ' 1 - 1 

1600 INTERVAL STOP:VPOKE 6924,209 

1610 CIRCLE(EX+8,183),6,15, , , .6 

1620 SOUND 0,0: SOUND1,0 

1630 SOUND7,0:SOUND8,15 

1640 PAINT(EX+8,183),15 

1650 CIRCLE(EX+8,183),2,10 

1660 PAINT(EX+8,183),10 

1670 SOUND8,0:S0UND7,56 

1680 MIS=MIS+1: EY=-8 

1690 LINE(2,173)-(26,252),13,BF 

1700 COLOR 1 

1710 PRESET(2,180),13:PRINT#1,MIS 
1720 PRESET(3,180),13:PRINT#1,MIS 
1730 IF MIS=10 THEN 1850 
1740 RETURN 

1750 ' |-1 

1760 ’ jsprite’sj 

1770 ’ 1 - 1 

1780 RESTORE 2290 

1790 FOR SV=14400 TO 14463 

1800 READ D$: VPOKE SV, VAL (” &H” +D$): NEXT 

1810 RETURN 

1820 ’ |-1 

1830 ’ Ieindej 

1840 ’ 1 - 1 

1850 FOR W=0 TO 750:NEXT 

1860 PUT SPRITE 2, (MX, 209), 1,2 

1870 FOR Y=0 TO 191 STEP 4 

1880 LINE(0, Y)-(255,Y+4),12,BF:NEXT 

1890 IF HKSC THEN HI=SC 

1900 COLOR 3 

1910 FOR AK=0 TO 15:FOR ZZ=15 TO 0 STEP-3 
1920 SOUND2, 250-ZZ:SOUND3,ZZ:S0UND9,15:NEX 
T: NEXT:SOUND9,0 

1930 LINE(85,28)-(168,39),1,BF 
1940 COLOR 8 
1950 PRESET(80,30),12 
1960 PRINT#1,” EINDE SPEL” 

1970 PRESET(81,30),12 
1980 PRINT#1,” EINDE SPEL” 

1990 COLOR11 

2000 PRESET(77,50),12 


2010 PRINT#1,” SCORE ";SC 

2020 PRESET(78,50),12 

2030 PRINT#1," SCORE ";SC:COLOR 7 

2040 PRESET(20,90),12 

2050 PRINT#1,” HOOGSTE SCORE ";HI 

2060 PRESET(21,90),12 

2070 PRINT#1," HOOGSTE SCORE ”;HI 

2080 PRESET(20,110),12 

2090 PRINT#1,” GEVANGEN EIEREN ” ; GE 

2100 PRESET(21,110),12 

2110 PRINT#1,” GEVANGEN EIEREN "jGE 

2120 GE=0 

2130 FOR AK=0 TO 15:FOR ZZ=15 TO 0 STEP-3 
2140 SOUND2,250-ZZ:S0UND3,ZZ:SOUND9, 15: NEX 
T:NEXT:SOUND9,0 
2150 ’ 

2160 LINE(0,160)-(255,191),13,BF 

2170 C0LQR15:PRESET(22,164),13 

2180 PRINT#1,”NOG BENS SPELEN: [RETURN]” 

2190 COLOR1:PRESET(60,181),13 

2200 PRINT#1,"STOPPEN: [TOETS]" 

2210 B=USR2(0):COLOR15 

2220 IN$=INKEY$:IF IN$="" THEN 2220 

2230 IF IN$=CHR$(13) THEN SC=0 :SB=1:GOTO 8 

90 

2240 FOR Y=0 TO 191 STEP 4 
2250 LINE(0, Y)-(255, Y+4),12,BF:NEXT 
2260 COLOR,4,4:KEYON 
2270 END 

2280 ’- 

2290 DATA FF,FF,FF,7F,3F,IF,00,00 
2300 DATA 00,00,00,00,00,00,00,00 
2310 DATA FF, FF, FF,FE,FC,F8,00,00 
2320 DATA 00,00,00,00,00,00,00,00 
2330 DATA 07,0F,IF,IF,IF,0F,07,00 
2340 DATA 00,00,00,00,00,00,00,00 
2350 DATA C0, E0, F0, F0, F0, E0, C0, 00 
2360 DATA 00,00,00,00,00,00,00,00 
2370 ’ 

2380 ' ====== EINDE LISTING -^ 


CONTRQLETELLINQ 

Regel 

520 

- 

59 

Rege 1 

1040 

- 

99 

Regel 

10 


88 

Regel 

530 

- 

198 

Regel 

1050 

- 

209 

Rege 1 

26 

- 

88 

Regel 

540 

- 

69 

Regel 

1 060 

- 

171 

Rege 1 

30 

- 

88 

Regel 

55© 

- 

218 

Regel 

1 070 

- 

107 

Rege 1 

40 

- 

88 

Regel 

560 

- 

79 

Regel 

1 080 

- 

56 

Regel 

50 

- 

S8 

Regel 

570 

- 

1 49 

Regel 

1090 

- 

193 

Rege 1 

80 

- 

88 

Regel 

880 

- 

89 

Regel 

1 100 

- 

1 89 

Regel 

70 

- 

88 

Regel 

890 

- 

23 

Regel 

1110 

- 

209 

Regel 

80 

- 

88 

Rege 1 

600 

- 

1 44 

Regel 

1 120 

- 

171 

Regel 

90 

- 

88 

Regel 

610 

- 

58 

Rege 1 

1 1 30 

- 

131 

Regel 

100 

- 

58 

Regel 

620 

- 

1 42 

Regel 

1 140 

- 

1 52 

Regel 

110 

- 

202 

Regel 

630 

- 

29 

Rege 1 

1150 

- 

88 

Regel 

120 

- 

1 42 

Regel 

640 

- 

73 

Regel 

1 160 

- 

1 42 

Regel 

1 30 

- 

82 

Regel 

680 

- 

37 

Regel 

1 1 70 

- 

58 

Rege 1 

140 

- 

233 

Regel 

660 

- 

68 

Rege 1 

1 180 

- 

88 

Regel 

1 80 

- 

74 

Regel 

670 

_ 

45 

Regel 

1 1 90 

- 

58 

Regel 

160 

- 

214 

Rege 1 

680 

- 

1 0 

Regel 

1200 

- 

93 

Regel 

1 70 

- 

1 37 

Regel 

690 

- 

53 

Regel 

1210 


88 

Rege 1 

180 

“ 

7 

Regel 

700 

- 

202 

Regel 

1220 

- 

58 

Regel 

1 90 

- 

44 

Regel 

710 

- 

61 

Regel 

1230 

- 

58 

Regel 

200 

- 

55 

Regel 

720 

- 

18 

Regel 

1 240 

- 

156 

Rege 1 

210 

- 

62 

Regel 

730 

- 

69 

Rege 1 

1 280 

- 

191 

Rege 1 

220 

- 

51 

Regel 

740 

- 

79 

Regel 

1260 

- 

58 

Regel 

230 

- 

58 

Rege 1 

780 

- 

77 

Regel 

1270 

- 

88 

Regel 

240 

- 

61 

Regel 

760 

- 

197 

Regel 

1280 

- 

58 

Regel 

250 

- 

101 

Regel 

770 

- 

87 

Rege 1 

1290 

- 

101 

Regel 

260 

- 

48 

Regel 

780 

- 

59 

Regel 

1 300 

- 

1 91 

Regel 

270 

- 

101 

Regel 

790 

- 

21 4 

Regel 

1310 

- 

58 

Rege 1 

280 

- 

94 

Regel 

800 

- 

1 31 

Regel 

1 320 

- 

58 

Regel 

290 

- 

14 

Regel 

810 

- 

171 

Regel 

1330 

- 

56 

Regel 

300 

- 

95 

Regel 

820 

- 

194 

Regel 

1 346 

- 

191 

Regel 

310 

- 

14 

Regel 

830 

- 

12 

Regel 

1350 

- 

13 

Rege 1 

320 

- 

172 

Regel 

840 

- 

60 

Rege 1 

1 360 

- 

22 

Regel 

330 

- 

58 

Regel 

350 

- 

58 

Regel 

1 370 

- 

249 

Regel 

340 

- 

1 42 

Regel 

860 

- 

9 

Rege 1 

1 380 

- 

243 

Regel 

380 

- 

36 

Regel 

870 

- 

214 

Regel 

1 390 

- 

36 

Regel 

360 

- 

61 

Regel 

880 

- 

58 

Regel 

1 400 

- 

39 

Rege 1 

370 

- 

51 

Regel 

890 

- 

0 

Regel 

1410 

- 

9 

Rege 1 

380 

- 

212 

Rege 1 

900 

- 

64 

Regel 

1 420 

- 

98 

Rege 1 

390 

- 

86 

Regel 

910 

- 

1 62 

Regel 

1430 

- 

216 

Regel 

400 

- 

1 44 

Regel 

920 

- 

226 

Regel 

1 440 

- 

93 

Regel 

410 

- 

81 

Regel 

930 

- 

129 

Rege 1 

1 480 

- 

239 

Regel 

420 

- 

57 

Regel 

940 

- 

202 

Rege 1 

1 460 

_ 

213 

Regel 

430 

_ 

95 

Regel 

950 

- 

1 1 0 

Regel 

1 470 

- 

83 

Regel 

440 

“ 

1 05 

Regel 

960 


214 

Regel 

1 480 

- 

93 

Regel 

4 50 


144 

Regel 

970 

- 

58 

Regel 

1 490 

_ 

1 49 

Regel 

460 


58 

Regel 

980 

- 

1 52 

Rege 1 

1 500 

_ 

39 

Rege 1 

470 


1 42 

Regel 

990 

- 

124 

Regel 

1510 

- 

40 

Rege 1 

480 


39 

Rege 1 

1 000 

- 

62 

Rege 1 

1 820 

- 

1 60 

Regel 

490 

“ 

197 

Regel 

1010 

- 

21 

Regel 

1 530 

- 

80 

Regel 

800 

~ 

49 

Regel 

1020 

- 

60 

Regel 

1 540 

- 

221 

Regel 

£i£ 

~ 

i-07 

Regel 

1 030 


244 

Rege 1 

1550 _ 

- 

1 20 


12 






















Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel ; 
Regel: 
Regel: 
Regel ; 
Regel : 
Regel: 
Regel : 
Regel: 
Regel : 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel; 
Regel: 


1 560 
1 570 
1 580 
1 590 
1 600 
1610 
1 620 
1630 
1640 
1 650 
1660 
1670 
1660 
1690 • 
1700 - 
1710 - 
1720 - 
1730 - 
1740 - 
1750 - 
1760 - 
1770 - 
1760 - 
1790 - 
) 800 - 
1810 - 
1820 - 
1830 - 


2 

- 58 
58 
58 

• 205 

- 116 
■ 127 

• 122 
243 

42 

238 
1 63 
1 50 
154 

239 
115 
1 16 

5 

1 42 
68 
58 
58 
1 80 
1 86 
1 76 
1 42 
58 
58 


Regel; 
Regel; 
Regel: 
Regel: 
Regel; 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel; 
Regel: 
Regel: 
Regel; 
Regel: 
Regel: 
Rege1: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel; 
Regel; 
Regel; 
Rege1: 
Regel: 


1 840 
1 850 
1 660 
1 870 
1 860 
1 890 
1 900 
1910 
1 920 
1 930 
1 940 
1 960 
1 960 
1970 
1 980 
1990 
2000 
2010 
2020 
2030 • 
2040 • 
2050 - 
2060 - 
2070 - 
2080 - 
2090 - 
2100 - 
2110 - 


58 
- 219 
120 
19 
42 
242 

241 
46 

213 

9 

246 

19 
15 

20 
15 

215 

36 
1 95 

37 

242 
1 9 
55 
20 
55 

39 
96 

40 
96 


Regel: 
Regel{ 
Regel: 
Regel; 
Regel 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel; 
Regel: 
Regel; 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Rege1: 
Regel: 
Regel: 
Regel: 
Regel: 
Totaal: 


2120 - 140 
2130 - 46 

2146 - 213 
2150 - 58 

2160 - 51 
2170 - 117 
2180 - 62 
2190 - 160 
2200 - 0 
2210 - 152 

2220 - 69 
2230 - 69 

2240 - 19 

2250 - 42 

2260 - 218 
2270 - 129 
2280 - 58 
2290 - 169 

2300 - 216 
2310 - 206 
2320 - 216 
2330 - 87 

2346 - 216 
2350 - 106 
2360 - 216 
2370 - 58 

2380 - 68 

25033 


DISK MONITOR/EDITOR 


Deze Monitor/editor is een uitgebreide versie van 
het programma uit de MSH-Gids nr. 11. 

Het dit programma is het mogelijk om direkt met de 
diskdrive te communiceren. U kunt sector voor sec¬ 
tor ophalen, bekijken en evt. data wijzigen en te- 
rugzetten. Het programma werkt met drive A. Omdat 

r“ u j r . ^ oPSeslagen, worden alle uitlezin- 
gen in hexadecimale vorm gedaan. Bij de start van 
het programma zijn het sectornummer en het adres¬ 
nummer op 0 geinitieerd. zodat sector 0 wordt opge¬ 
haald. Zolang u nog niet met dit programma ver- 

S W J„ b H nt ' verstandi 8 de schrijfbeveili- 

g g op de schijf aan te brengen om vernietigina 
ven gegevens te voorkomen. De schijven, die u wilt 
zijn 8n ° f veranderen ’ moe ten wel geformatteerd 

Bovenin het beeld worden de formaatcode (hex.), de 
capaciteit van de schijf in Kbgtes Cdec.) en het aan¬ 
tal sectoren uitoelezen. Omdat de telling begint bil 
t 15 hat noogste op te vragen sectornummer 

nlnn 5 ft t0 i a j " ta i! "l‘ hat aantal °P de schijf b.v. 
02D0 Chsx.) dan heeft de hoogste sector nr. 02CF. 

knln« VOl98 r* 9 ko, °“ man van elk 12 regels. De eerste 
Seeft een adres van de sector weer. de tweede 
Kolom de data op dat adres, de derde kolom de data 
van het adres +1, enz. De laatste kolom geeft dus de 
data van het adres *7. In de tweede regel is het 
kJr„» S * eerste adres *8. In regel G is de data in 
kolom 2 tussen teksthaken geplaatst. Hier kunt u 

knL ™ randerin g a " aanbrengen. Naast de laatste 
kolom is nog een blok waarin een ASCII interpretatie 
van de data wordt gegeven. 

Rechtsonder staat het sectornummer dat in behan- 
deiing is. Met de cursortoetsen kan een adres tussen 
de teksthaken worden geplaatst. De adressen worden 
krmgyormig uitgelezen; dw.z. na het hoogste adres 
(meestal OSOOJ volgt adres 0000. Zo kunt u de hele 
sector doorwandelen en weer bij het begin uitkomen. 

Met de funktietoets F1 (READ) kan een willekeurige 
“2" "°r dan °P8®haald. Linksonder verschijnt het 
woordje READ met daarachter het huidige sectornum- 
mar. Nu kunt u daar aan nieuw nummer invoeren en 
nfl k BB {li dl J uk * 0 P RETURN wordt de nieuwe sector op¬ 
gehaald. Nogmaals: alles hexadecimaal. 


Mat F2 (WRITE) kan een sector naar de schilf ge- 
“ hr ’ v “ ^den. Dit is natuurlijk alleen nodig 3 al s 9 u 
het iSl 0 . P dB SCh ‘£ Wllt wijzigen of kopiëren. Na 
uonrfH^ UBTTc Va A vers chijnt linksonder het 

direkV oD W RETURM B rf Hl 8Bct ° rnummar - Nu k ™t u of 
RETURNd rukken - da sector gaat naar het¬ 
zelfde nummer- of u kunt een ander nummer invoe¬ 
ren waarnaar de sector gekopieerd moet worden. 

\°: dt de aar8tv oIgende sector opge- 
haald. Ook dit werkt weer kringvormig (op de laatste 
volgt de eerste). Met F4 (B-WAkD) wordt een sector¬ 
nummer lager opgehaald. 

Met F5 (INPUT) ken de data tussen de teksthaken 

INPUT de m fl t W °rf den ' t i f k50n . der ® taat nu het woordje 
BFTiiDu * . daarachter de betreffende data. Na 
R TURN wordt automatisch de volgende data tussen 

INPUT* H*®" P plaatat an na BS de vorige. De 
INPUT- mode verlaat u met ESC. ö 

F6 (TRACÉ) spoort een op te geven file op en plaatst 
n B ae ^ ste sector van die file op het scherm. Met 
dén e ” B ’ Ward * an d ° 0r de file S ewa ndeld wor- 

overschreven^ StBlt "" 9eMiStC fi,B ' mits deze niat ‘ 8 

5?„! C( ï ,Y) k?^ VOOr n di5k 9 abruikars - dia °ver slechts 1 

kettB Ïn 5 hlnkk kBn ‘ DBZB A K nnn t L ne C0 P leert een hele dis- 
Kette in blokken van 45000 bgtes. 

tieblolf 3 ifSJ’rer H ult S ebreid er informa- 

inJiï’f * d toat ? de routine verlaten; elke 

andere toets geeft een volgend infoblok. 

F10 (PRINT) print de sector die op het scherm staat. 

x initieert het programma op een andere diskette, I * 

DEFUSRÏHnnn? A IC o B ncJm nUit BASIC kan man “ Bt 
DEFUSR 4HD000 en A«USR(0) weer terug naar de Moni- 


1 

’ DISKII Disk monitor 

i 

’ Door GP.Versluis Dordrecht 
j (c)1988 MSX-Gids Lelystad 

’ Poke programma 


10 
12 
14 
16 
18 
20 
21 
22 
24 
26 
28 
30 1 

32 CLEAR100, &HCCB0 : SCREES0 ;WIDTH40:DIMT(33 
3i F ??Iï?ï°^i^ ADT (1 > : TA= TA+T (I): NEXT 

36 ’ checksums 
38 ’ 

40 DATA 11736,12388,13141,10699,15046 
42 DATA 12657,12093,13578,10748,07707 
44 DATA 12718,10715,13282,12223,11531 
46 DATA 12298,11473,12140,09154,07849 
48 DATA 08847,15126,12967,14069,10284 
50 DATA 10599,11815,09660,12949,10519 
52 DATA 09461,11876,11826,10318,393492 
54 * 

58 1 checksum controle 
60 * 

62 READTT: IFTTOTATHENPRINT"fout in checks 
ums":LIST40-52:ERDBLSEPRIFT”checksums ok” 


13 











64 ’ 

66 ’ ================================ 

68 ’data controle 
70 ' 

72 FORI=0TO33 
74 FORJ=0TO99 
76 READA$: IFA$=”++"THEN82 
78 A=VAL(”&h"+A$):B=B+A 
80 NEXTJ 

82 IFBOT < I )THEN86ELSEPRINT”regel” ; 1*10+20 
0;’’-"; (I+l)*10+199;"checksum ok”:BEEP 
84 B=0:NEXTI:G0T096 

86 PRIFF'datafout in regel”;1*10+200;”-"; ( 
1+1)*10+199:END 
88 * 

90 *================================ 

92 1 data poke 
94 ' 

96 PRINT:PRINT"data poke” 

98 RESTORE200:FORI=&HCCBAT0&HD9EA:READAS:P 
OKEI,VAL(”&h”+A$):NEXT 

100 READAS:IFA$<>”++”THENPRINT"Data fout”: 
END 

102 PRINT”Save met:”:PRINT” bsave”+CHR$(3 
4)+”DISKII.hex”+CHR$(34)+",&HCCBA,&HD9EA,& 
HD000” 

104 PRINT"laad met:PRINT” clear 200, &HC 
CB0”: PRINT” bload"+CHR$(34>+”DISKII.hex"+ 
CHR$(34)+”,r" 

106 ' 

108 ’ 

110 ’ 

200 DATA 

201 DATA 

202 DATA 

203 DATA 

204 DATA 

205 DATA 

206 DATA 

207 DATA 

208 DATA 

209 DATA 

210 DATA 

211 DATA 

212 DATA 

213 DATA 

214 DATA 

215 DATA 

216 DATA 

217 DATA 

218 DATA 

219 DATA 

220 DATA 

221 DATA 

222 DATA 

223 DATA 

224 DATA 

225 DATA 

226 DATA 

227 DATA 

228 DATA 

229 DATA 

230 DATA 

231 DATA 

232 DATA 

233 DATA 

234 DATA 

235 DATA 

236 DATA 

237 DATA 

238 DATA 

239 DATA 

240 DATA 

241 DATA 

242 DATA 


ED,73,FE,BF,31,FE,BF,01.00.0A 
11,00,B4,21,00,80,ED,B0,CD,F9 
CC,CD,49,CD,CD,97,CD,3A,E4,CF 
B7,28,F4,01,00,0A,11,00,80,21 
00, B4, ED, B0, ED, 7B, FE, BF, C9, CD 
9C, 00,28,FB,7E,FE,1B,C0,C3,DB 

CC, 00,00,0E,IA,ED,5B,51,F3,CD 
7D,F3,0E,2F,11,00,00,21,00,01 

CD, 7D,F3,2A,51,F3,01,13,00,09 
5E,23,56,ED,53,E0,CF,21,00,00 
22,E2,CF,AF,32,E4,CF,CD,38,01 
07,07, E6,03,4F, 06, 00, 21, Cl, FC 
09,CB,7E,28,0E,21,C5,FC,09,7E 
07,07,07,07,E6,0C,BI,CB,FF,32 
E5,CF,C9,11,07,CE,CD,ED,CD,CD 
56,01,CD,EB,CC,21,00,00,ED,5B 
E2, CF, 06,2D, C5, D5, E5, 0E, 2F, 21 
00,02,CD,7D,F3,CD, E4, D9, El, 11 
00,04,ED,4B,51,F3,D5,0A,5F,3A 
E5, CF, E5, C5, CD, 14, 00, Cl, El, Dl 
03,23,1B,7A,B3,20,EB,Dl,Cl,13 
13, E5,2A, E0, CF, E7, El, C8,10, C8 
C9,11,IA,CE,CD,ED,CD,CD,56,01 
CD, EB, CC,06,2D,21,00,00,C5,ED 
5B, 51,F3,01,00,04,3A,E5,CF,E5 
D5, C5, CD, 0C, 00, Cl, Dl, El, 12, 13 
23,0B,78,BI,20,EC,E5,0E,30,21 
00, 02,ED,5B,E2,CF,D5,CD,7D,F3 
CD, E4, D9, Dl, 13, 13, ED, 53, E2, CF 
2A,E0,CF,E7,El,Cl,28,03,10,C2 
C9,3E,01,32,E4,CF,C9,C3,FA,CD 
63,6F,70,79,20,31,39,38,36,20 
21,04,03,IA,B7,C8,CD,4D,00,13 
23,18,F6,49,4B,53,45,52,54,20 
4D,41,53,54,45,52,20,44,49,53 
4B,00,49,4E,53,45,52,54,20,53 
4C, 41,56,45,20,44,49,53,4B,20 
00, E5, D5, C5, DD, E5, FD, E5, E5, DD 
El,DD,6E,IA,DD,66,1B,E5,IE,00 
0E, 1B, CD, 7D, F3, El, CD, C0, D6, 7C 
B5,20, 0B, FD,El,DD,El,Cl,Dl,El 
1B, IA, 77,C9,FD,El,DD,El,Cl,Dl 
El.El,11,AA,D4,C3,01,CF,0E,02 


PISK -MONITOR II <c> 1988 MSX-GIPS 

Formatcode : F9 0T2O Kbytes 0580 Sector s 


0190 

0198 

0180 

0188 

01S0 

S1B8 

01C0 

0108 

01P0 

0ir>3 

01E0 

01E8 


read 


00 

00 

00 

00 

00 

00 

38 

4E 

- . - 8N 

±8 

0F 

3E 

00 

48 

0B 

00 

00 

|_| 

E5 

55 

53 

49 

43 

20 

20 

20 

lüêic ' ’ 

48 

45 

58 

00 

00 

00 

00 

00 

HEX. 

00 

00 

00 

00 

00 

00 

00 

00 


C21308 

3E 

00 

C0 

16 

00 

00 

! . >. 

E5 

4F 

4E 

45 

4P 

53 

43 

20 

-OKEMSC 

42 

41 

53 

00 

00 

00 

00 

00 

BAS. 

00 

00 

00 

00 

00 

00 

00 

00 


21 

08 

44 

00 

1F 

07 

00 

00 

* . I>. 

E5 

52 

49 

4E 

54 

4I> 

53 

43 

.RINTMSC 

42 

41 

53 

00 

00 

00 

00 

00 

BAS. 






Sector 

No C00073 


write 


+ -uird 


to-utrd 


input 


243 DATA FD, E5, 21,00,00,22, F6, CF, C5, CD 

244 DATA 26, D2, Cl, FD,2A,51,F3,FD,46,16 

245 DATA El, C5, E5, ED, 5B, 51, F3, D5, C5,01 

246 DATA 00, 02, ED, B0, ED, 5B, F6, CF, 13, ED 

247 DATA 53,F6,CF,E5,21,00,01,0E,30,CD 

248 DATA 7D,F3,El,Cl,Dl,10,E2,El,Cl, 79 

249 DATA 3D,4F,20,D5,C9,E5,Cl,D5,El,29 

250 DATA 19,CB,3C,CB,1D,7B,EB,FD,E5,El 

251 DATA 19,CB,47,20,08,71,23,7E,E6,F0 

252 DATA B0,77,C9,ED,6F,79,ED,67,23,07 

253 DATA 07,07,07, ED, 67,78, ED, 67, C9, CB 

254 DATA 18, CB, 19, CB, 18, CB, 19, CB, 18, C9 

255 DATA 21,04,03, 11,42, D4. CD, 8E, D3,06 

256 DATA 0B,CD,4A,D8,FE,1B,CA,F8,D5,0E 

257 DATA 11,11,00,DA,CD,7D,F3,B7,20, 09 

258 DATA 11,9D, D4, CD, 0A, D6, C3, F8, D5, CD 

259 DATA 86,D9,3A,ED,CF,47,11,02,DA,21 

260 DATA 00,90,C5,D5,E5,7E,FE,E5,20,08 

261 DATA 23,06,0A,CD,B8,D6,28,0E,El,Dl 

262 DATA 01,20,00,09,Cl,10,E7,11,2D,D4 

263 DATA 18,CF,El,Dl,Cl,CD,2D,CE,E5,2E 

264 DATA 00, 7C, E6, FE, 67, D6,90, CB, 3F, EB 

265 DATA 06,00,4F,2A,EB,CF,09,EB,D5,ED 

266 DATA 5B,51,F3,01,00,02,ED, B0,Dl,21 

267 DATA 00,01,0E,30,CD,7D,F3,DD,El,DD 

268 DATA 6E,IC,DD,66,1D,DD,5E,IE,DD,56 

269 DATA 1F,01,00,02,3A,F0,CF,3D,B7,28 

270 DATA 04,CB,20,18,F8,FD,21,00,00,FD 

271 DATA 23, ED, 42, 38, 04,28, 02, 18, F6, 7A 

272 DATA B3,1B, 20, F1, DD, 5E, IA, DD, 56,1B 

273 DATA ED,53,E9,CF,FD,22,E7,CF,0E,1B 

274 DATA IE,00,CD,7D,F3,2A,E7,CF,2B,22 

275 DATA E7,CF,7C,B5,28,IC,2A,E9,CF,23 

276 DATA E5, CD, C0, D6,Dl,7C,B5,28,03,EB 

277 DATA 18,F3,2A,E9,CF,EB,22,E9,CF,CD 

278 DATA A9,CE,18,D9,ED,5B,E9,CF,21,FF 

279 DATA 0F,CD,A9,CE,CD,66,CE,CD,26, D2 

280 DATA CD, 41,D2,C3,F8,D5,D0,02,5A,00 

281 DATA 00, 02, FF,00,00,12,00,05,00,70 

282 DATA 08,00,02,20,D0,02,03,60,00,00 

283 DATA 00,00,F0,02,Dl,02,2F,00,ED,73 

284 DATA 70,DE,31,70,DE,0E,1B,IE,00, CD 

285 DATA 7D, F3, FD, 7E, 00, 21, C8, D3, ED, BI 

286 DATA 5E, 23,56, ED,53,F2,CF,3E,01,32 

287 DATA E9,F3,3E,02,32,EA,F3,3E,28,32 

288 DATA AE,F3,3E, 01,32,AB,FC,CD,6C,00 

289 DATA CD,E3,D0,0E,IA,ED,5B,51,F3,CD 

290 DATA 7D, F3, CD, 26, D2, CD, 41, D2, AF, CD 

291 DATA D5,00,3D,20,15,01,08,00,2A,F8 

292 DATA CF, 09, 11,00,02,E7,38,03,AF,ED 

293 DATA 52,22, F8, CF, 18, El, 3D, 20, 05,01 

294 DATA 07,00,18, E6,3D,20,14,01,01,00 

295 DATA 2A,F8,CF,AF,ED,42,30,04,01,00 

296 DATA 02,09,22, F8, CF, 18, C2, 3D, 20,05 

297 DATA 01,09,00,18,E7,3D,20,05,01,08 


14 



















298 DATA 00, 18, DF, 3D, 20,05,01,07,00,18 

299 DATA D7,3D,20,05,01,01,00,18,AF,3D 

300 DATA 20,05,01,09,00,18,A7,CD,56,01 

301 DATA CD,9C,00,28,FB,7E,FE,72,CC,56 

302 DATA Dl, FE, 77, CC, 7F, Dl, FE, 66, CC, A4 

303 JJTA Dl, FE, 62, CC, B8, Dl, FE, 69, CC, C9 

304 f ATA Dl, C 3 , 1*5, D4, CD, 3E, 00, ED, 7B, 70 
? 08 DATA DE,AF,32,AB,FC,32,9B,FC,CD,C3 
308 DATA 00,C3,56,01,40,CD,CC,00,21,00 
30 f ffïf 00,01,28,00,3E,3D,CD,56,00,21 

308 DATA 2B,00,11,E0,D3,CD,8E,D3,21,79 

309 DATA 00,13,CD,8E,D3,FD,7E,00,CD,0D 

310 DATA D3, 13,21,88, 00, D5, ED, 5B, F2, CF 

311 DATA CD,6F,D3,Dl,23,23,CD,8E,D3,13 

312 DATA 21,60,03,CD,8E,D3,CD,C9,D4,21 

313 DATA 01,28,CD, C6,00,00,00,00,00,21 

314 DATA BE,01,3E,5B,CD,4D,00,23,23,23 

315 DATA 3E,5D,CD,4D,00,21,94,00,11,F3 

316 DATA CF,IA,CD,0D,D3,1B,23,IA,CD,0D 

317 DATA D3, 23,23, 11,51, D4, C3, 8E, D3, 40 

318 DATA 21,49,03,11,4C,D4,CD, 8E.D3,23 

319 DATA 23, 11, F7,CF,00,00,E5,CD,BC,D2 

320 DATA El, E5,2A, F6, CF, ED, 5B, F2, CF, E7 

321 DATA El,30,EA,CD,01,D3,21,40,D0,E3 

322 DATA C9,21,49,03, 11,59,D4,3E,C9,32 

323 DATA 7A,Dl,CD,5C,Dl,3E,21,32,7A, Dl 

324 DATA 0E,30,21,00,01,ED,5B,F6,CF, CD 

325 DATA 7D,F3,CD,01,D3,C3,7A,Dl,2A, F6 

326 DATA CF,23,ED,5B,F2,CF,E7,20,03,21 

327 DATA 00,00,22,F6,CF,C3,7A,Dl,2A,F6 

328 DATA CF, 7C, B5,20, 03, 2A, F2, CF, 2B, 22 

329 DATA F6,CF,C3,7A,Dl,21,49,03,11,5F 

330 DATA D4,CD,8E,D3,23,EB,2A,51,F3,ED 

331 DATA 4B,F8,CF,09,EB,CD,B3,D3,2B,00 

332 DATA CD, D8, D2, FE, 1B, 20,05, C3, BF, D3 

333 DATA 00, 00, FE, 08,20, 12, E5,2A, F8, CF 

334 DATA 7C, B5,20, 03, 21,00,02, 2B, 22, F8 

335 DATA CF,El,18,CF,FE,0D,20,14,E5,2A 

336 DATA F8,CF,23,11,00,02,E7,20,03,21 

337 DATA 00, 00,22, F8, CF, El, 18, B7, EB, ED 

338 DATA 6F,EB,IA,CD,0D,D3,18,BA,0E,2F 

339 DATA ED, 5B,F6,CF,21,00,01,D5,CD,7D 

340 DATA F3,Dl,21,6B,03,7A,CD,0D,D3,23 
34F ffï A 7B > C3 ' 0D > D 3,40,CD,A6,D3,2A,F8 

342 DATA CF,01,28,00,AF,ED,42,30,04,01 

343 DATA 00, 02,09,E5,Dl,ED,4B,51,F3,09 

344 DATA E5,DD,El, 21, 10, 01,22, FA, CF, 21 

345 DATA Fl, 00, 22,FC, CF,0E,0C,7A,CD,0D 

346 DATA D3,23,7B,CD,0D/D3,23,23,23,06 

347 DATA 08, DD,7E,00,F5,CD,0D,D3,Fl,23 

348 DATA 23, E5,2A, FA, CF, CD, 98, D3,23^ 22 

349 DATA FA, CF, 13,21,00, 02, E7, El, 28, 1D 

350 DATA 38,1B,DD,23,10,DD,CD,77,D3,0D 

351 DATA 79, B7, 20, C7, C9, 62, 79, 20, 47, 50 

352 DATA 20,56,65,72,73,6C,75,69,73,11 

353 DATA 00,00,DD,2A,51,F3,18,DE,IA CD 

354 DATA 0D,D3,1B,23, IA, CD, 0D, D3, CD, D8 

355 DATA D2,FE,0D,C8,EB,ED,6F,23, ED, 6F 

356 DATA EB,2B,2B,2B,18,E4,E5,CD,56,01 

357 DATA El,CD,9F,00, FE,0D,C8,FE,08,C8 

358 DATA FE, 1B, C8, FE, 30, 38, EB, FE, 47,30 

359 DATA E7,FE,3A,D8,00,FE,41,30,05,18 

360 DATA DD, D6,30, C9, D6, 17, C9,21,49, 03 

361 DATA 01,14,00,3B,20,C3,56,00,40,F5 
3 f2 DATA C5,06,04, CB,3F,10,FC,Cl,CD,21 

363 DATA D3.23,Fl,E6,0F,C3.21,D3,40,FE 

364 DATA 0A, 38,06, C6,37,C3,4D,00,40,C6 

365 DATA 30,18,F8,EB,01,E8,03,DD,21,F4 

366 DATA CF,CD,5F,D3,01,64,00,CD,5F,D3 

367 DATA 01,0A,00,DD,21,F5,CF,CD,5F,D3 

368 DATA 01,01,00,CD,5F,D3,EB,11,F4,CF 
389 £ ATA 1A » CD >0D>D3,13,23,IA,C3,0D,D3 
lil £ ATA 40 > AF - 3C « ED .42,30,FB,3D,09,E5 

371 DATA DD,E5,E1,ED,6F,E1,C9,CB,3A,CB 

372 DATA 1B, C3, 2F, D3,40, C5, 01,20,-00,2A 


lil FA -CF, 09, 22, FA, CF, 2A, FC, CF, 01 
374 DATA 28, 00,09, 22, FC, CF, Cl, C9, IA, B7 

lil ff TA C8 ’ CD > 4D >®0>13,23,18,F6,FE,20 
lil ff? 3 ö ' 04 - FE - 80 .3S,02,3E,2E,C3,4D 
lil fflf 00 i 40, 06, 01,21,00, A0, 23, 7C, B5 

378 9AFA 2 0 , FB, 10, F6, C9, E5, D5, CD, 44, D2 

379 BAFA Dl,El,IA,C3,0D,D3,40,CD,01,D3 

380 DATA CD,44,D2,3E,FF,C9,F8,D0,02,F9 

381 DATA A0, 05, FA, 80,02, FB, 00, 05, FC, 68 

382 DATA 01,FD,D0,02,FE,40,01,FF,80,02 

383 DATA 44, 49,53, 4B, 2D,4D,4F,4E,49,54 

fff f ATA 4F ' 82 ,20,49,49, 20,28,63,29,20 

385 DATA 31,39,38,38,20,4D,53,58,2D,47 

386 DATA 49,44,53,00,46,6F,72,6D,61,74 

387 DATA 63,6F,64,65,3A,00,4B,62,79,74 

388 DATA 65,73,00,53,65,63,74,6F,72,20 

389 DATA 4E, 6F,20,5B,30,30,30,30,5D,00 

390 DATA 54,52,41,43,45,3A,00,46,69,6C 
394 f ATA 8 5,20,6E,6F,74,20,66,6F,75,6E 
lil P ATA 84 > 00 » 46,72,65,65,3A,00,53,41 

393 DATA 56, 45,3A, 00, 40, 40, 40, 40, 52, 45 

394 DATA 41,44,00, 53,65,63,74,6F,72,73 

395 DATA 00,57, 52, 49,54,45,00,49,4E,50 

396 DATA 55,54,00,72,65,61,64,00,77,72 

lil ïflf 6 9 , 74 ,65, 00,66,2D, 77, 72, 64,00 
398 DATA 62,2D,77,72,64,00,69,6E,70,75 

lil Sfïf £ 4 * 00 » 74 , 72, 61,63, 65, 00, 63, 6F 

400 DATA 70,79,00,73,61,76,65,00,64,69 

401 DATA 72,2E,00,70,72,69,6E,74,00,46 

402 DATA 69,6C,65,20,65,78,69,73,74,73 

403 DATA 20, 00, 46,69,6C,65,20,64,69,73 

fff 5 ATA 74 ’ 72 ’ 6F > 79 > 6 5,64,00,31,32,33 

405 DATA 34,35,36,37,38,39,40,41,42,43 

406 DATA 44,45,46,01,9F,00,21,7F,F8,11 

fff 80 > F8,36,00, E5, ED, B0, El, 06,0A 

408 DATA 11,65,D4,C5,E5,IA,B7,28,05,77 

409 DATA 13,23,18,F7,El,01,10,00,09 ci 

410 DATA 13,10,EC,C3,CF,00,40,FE,74,CC 

411 DATA 32,D5,FE,63,CA,DE,D9,FE,73 CC 
fff £f! A E0 > CB » FE > 64, CC, E6, D6, FE, 70, CC 
f13 DATA 2F, D6,FE,21,CA,CE,D0,FE,46,CC 
fff nfïf C2,FD,FE,58,CA,04,D0,FE,4C,CC 
fff ff TA C2,FD,C3,46,D0,11,2D,D4, CD, 0A 

416 DATA D6, CD, 26, D2, AF, C3, F8, D5,21,04 

417 DATA 03,11,26, D4,CD,8E,D3,06,0B,CD 

418 DATA 4A,D8,FE, 1B,CA,F8,D5,0E,0F,11 
fff £f TA 00 > DA .CD,7D,F3,B7,20,D5,0E,2F 

420 DATA 21,00,01,11,00,00,CD,7D.F3.0E 

421 DATA 1B,11,00,00,CD,7D,F3,CD,9E,D8 
fff f ATA CD > E7 > D8,DD,21,00,90,DD,6E,00 
423 DATA DD,66,01,22,F6,CF,DD,E5,CD, 26 
fff nfïf D2, CD, 43., D2, DD, El, 3E, C0, 32, A2 
fff £ ATA D0 > DD ' E5 > CD .46,D0,DD,E1,3E,20 
fff P ATA 32 > A2 > D0 > CD, 56, 01, CD, 9C, 00, 28 
fff ffï A FB > 7E » FE > 66,2 0 ,0D,DD,7E,03,FE 
fff £fï A 0 F,28,DB,DD,23,DD,23,18,C2,FE 

fff £fI A 8 2,20,0F,DD, E 5,E1,11,00,90,E7 

430 DATA 28,C8,DD,2B,DD,2B,18,AF,FE,72 

431 DATA 28,36,FE,77,28;32,FE,69,CC,20 
fff £f TA D9 > FE f 74 12 8 ,29,FE,63,28,25, FE 
fff ffff 73,2 8 ,21,FE,64,CC,E6,D6,FE,70 
fff f ATA CC,2F,D6,FE,21,CA,CE,D0,FE,46 
435 DATA CC, C2,FD,FE,58,CA,04,D0,FE,4C 
4iSö DATA CC, C2, FD, CS, 80, D5, F5, 3E, 20,01 

fff £ ATA 14 ! 0 0)21,04,03,CD,56,00,Fl,21 

438 DATA B2, D0, E3, C9, F5, E5, D5, C5,21,70 

439 DATA 03,CD,8E,D3,CD,C0,00,CD,56,01 

440 DATA CD,9C,00,28,FB,3E,20,01,14,00 

441 DATA 21,70,03,CD,56,00,Cl,Dl,El,Fl 

442 DATA C9, CD, 9B, D6, CD, A7, D6, CD, 9B, D6 

443 DATA 2A,51,F3,0E,20,06,10,E5,7E,F5 

444 DATA 07,07,07,07, E6,0F,FE,0A,30,04 

445 DATA C6, 30, 18, 02, C6,37, CD, A5, 00, 38 
fff fflf 42, Fl, E6,0F, FE, 0A, 30, 04, C6,30 
447 DATA 18,02,C6,37,CD,A5,00,38,31 3E 







448 DATA 20,CD,A5,00,23,10,CF,06,03,3E 

449 DATA 20, CD, A5,00, 10, F9, El, 06, 10, 7E 

450 DATA FE,20,38,06,FE,7F,30,02,18,02 

451 DATA 3E,2E,CD,A5,00,23,10,ED,CD,9B 

452 DATA D6,0D,79, 20,A6,18,02,F1,El,3E 

453 DATA 0A,CD,A5,00,D8,3E,0D,C3,A5,00 

454 DATA 40,06,10,21,60,03,CD,4A,00,CD 

455 DATA A5,00,23, 10, F7, C3, 9B, D6, IA, BE 

456 DATA C0, 13,23, 10, F9, C9, E5, Dl, 29, 19 

457 DATA CB,3C,CB,1D,D5,EB,FD,E5, El, 19 

458 DATA 5E,23,56,Cl,CB,41,20,06,7A,E6 

459 DATA 0F, 57,18,08, 06,04, CB, 3A, CB, 1B 

460 DATA 10, FA, EB, C9,21,F0,00,01,20,02 

461 DATA 3E, 20, CD, 56,00,CD,86,D9,0E,1B 

462 DATA 11,00,00,CD,7D,F3,EB,D5,11,3C 

463 DATA D4,21,F8,00,CD,8E,D3,Dl,CD, 2F 

464 DATA D3,23,23,11,0E,D4,CD,8E,D3,3A 

465 DATA ED,CF,47,11,00,90,21,48,01, IA 

466 DATA B7, 28, F2, FE,E5,20,0C,C5,01,20 

467 DATA 00, EB, 09, EB, Cl, 10, EE, 18, E2, CD 

468 DATA 5B,D7,E5,CD,56,01,CD,9C,00,28 

469 DATA FB, 7E, El, FE, 1B, 20,05, CD, 4D, D7 

470 DATA AF,C9,21,48,01,18,D8,3E,20,21 

471 DATA F0,00,01,20,02,CD,56,00,C3,41 

472 DATA D2, E5, D5, C5, E5,06,08, IA, CD, 4D 

473 DATA 00,13,23,10,F8,3E,2E,CD,4D, 00 

474 DATA 06,03,23, IA, CD, 4D, 00, 13, 10, F8 

475 DATA El,01,28,00,09,EB,01,11,00,09 

476 DATA EB,D5,FD,El,FD,5E,00,FD,56,01 

477 DATA 01,10,27,EB,AF,ED,42,38,03,3C 

478 DATA 18, F9,09, EB, C6, 30, CD, 4D, 00,23 

479 DATA CD,2F,D3,23,11,0F,D4,23,CD,8B 

480 DATA D3, CD, 28, D9, Cl, Dl, El, C9, CD, 4A 

481 DATA 00,32, Fl, CF, E5, D5, C5, 26, 00,6F 

482 DATA 29,29,29,EB,2A,B7,F3,E5,19,EB 

483 DATA El, 01, F8, 07,09, 06,08, EB, CD, 4A 

484 DATA 00,EE,FF,EB,CD,4D,00,13,23,10 

485 DATA F2, Cl, Dl,El,3E,FF,C3,4D,00,E5 

486 DATA C5,0E,00,CD,B2,D7,E5,CD,56,01 

487 DATA CD,9C,00,28,FB,7E,El,FE, 1B, 28 

488 DATA 33,FE,0D,28,2F,FE,IC,20,0F,78 

489 DATA B7,28,E5,3A,Fl,CF,CD,4D, 00, 23 

490 DATA 05, 0C, 18, D6, FE, 1D, 20, 0F, 79, B7 

491 DATA 28,D2,3A,Fl,CF,CD,4D,00,2B,04 

492 DATA 0D,18,C4,CD,4D,00,78,B7,28,BD 

493 DATA 18, DF, F5, 3A, Fl, CF, CD, 4D, 00, Fl 

494 DATA Cl,El,FE,1B,C8,04,11,00,90,CD 

495 DATA 4A,00,12,13,23,10,F8,AF,12,C9 

496 DATA CD,E5,D7,B7,C0,21,00,DA,11,01 

497 DATA DA,01,3F,00,D5,36,00,ED, B0, El 

498 DATA 11,00,90, 06,08, IA, FE, 20, 20, 03 

499 DATA 13,18, F8, B7,28,2A,FE,2E,28,06 

500 DATA 77,13,23,IA,10,F3,78,B7,28,06 

501 DATA 3E, 20, 77, 23,10,FC,06,03,13,IA 

502 DATA B7,28,04,77,23,10,F7,78,B7,28 

503 DATA 06,3E, 20, 77,23, 10, FC, C9, 78, C6 

504 DATA 03,47,18,F3,DD,2A,51,F3,26,00 

505 DATA DD,6E,10,DD,7E,16,E5,Dl, 3D, 28 

506 DATA 03,19,18,FA,E5,Dl,21,02,00,E5 

507 DATA Cl,DD,7E,0D,3D,28,03,09,18,FA 

508 DATA 19,22, EE, CF, C9,44,49, 53,4B, 49 

509 DATA 49,20,21,20,6F,6B,74,6F,62,65 

510 DATA 72,20,31,39,38,37,20,21,22,23 

511 DATA 24,25,26,27,28,29,30,DD,21,00 

512 DATA 90, 2A, IA, DA, E5, E5, Dl, ED, 4B, EE 

513 DATA CF,3A,F0,CF,3D,28,03,19,18,FA 

514 DATA 09,3A,F0,CF,DD,75,00,DD,74,01 

515 DATA DD,23,DD,23,23,3D,20,F2,El,CD 

516 DATA C0, D6,7C, FE, 0F, 20, D5, DD, 75,00 

517 DATA DD,74,01,C9,DD,E5,CD,C9,Dl,DD 

518 DATA El,C9,FD,7E,FD,F5,CB,3F,06,00 

519 DATA 4F, 11,BC,07,EB,09,EB,01,1D,00 

520 DATA 09,CD,2F,D3,23,3E,2D,CD,4D,00 

521 DATA 23,Fl,CB,27,CB,27,CB,27,E6,0F 

522 DATA 4F,FD,7E,FC,F5,06,05,CB,3F,10 

523 DATA FC, E6,07,BI,CD,6C,D9,23,3E,2D 


524 DATA CD,4D,00,23,Fl,E6,1F,C3,6C,D9 

525 DATA C5,01,00,00, D6,0A, 38, 03, 04, 18 

526 DATA F9, C6,0A,CB,20,CB,20,CB,20,CB 

527 DATA 20,80,Cl,C3,0D,D3,2A,F6,CF,E5 

528 DATA 21,00,00,22., F6, CF, CD, 26, D2, FD 

529 DATA 2A,51,F3,26,00,FD,6E,10, FD, 7E 

530 DATA 16,E5,Dl,3D,28,03, 19,18,FA,23 

531 DATA FD.7E,11,32,ED,CF,CB,3F,CB,3F 

532 DATA CB,3F,CB,3F,11,00,90,22,EB,CF 

533 DATA 22, F6, CF, F5, D5, CD, 26, D2, Dl, Fl 

534 DATA 2A,51,F3,01,00,02,ED,B0,3D,28 

535 DATA 06,2A, F6, CF, 23, 18, E5, El, 22, F6 

536 DATA CF, C3, 26, D2, CD, BA, CC, C3,04, D0 

537 DATA D5, CD, 44, D2, C3,33, D2,++ 


De volgende kleine routine is gemaakt naar aanlei¬ 
ding van het artikel over Delta BASIC. Deze routine 
maakt, nadat er ca. 5 minuten geen toets meer is 
ingedrukt, het scherm inactief. Het scherm kan dan 
weer geactiveerd worden door een toets in te druk¬ 
ken. De routines warden naar pagina 0 van het RAM- 
slot gecopieerd en aan de hooks FDCC en FD9A of 
FD9F gekoppeld, zodat deze routines ook bij een 
lopend programma werken. 

Alleen grote machinetaal programma's, die dezelfde 
hooks en/of slotselectie gebruiken, kunnen problemen 
even. B.v. de optie COPY van de diskmonitor wordt 
oor het routinetje verstoord en crasht!! 


1@0 'SCREEN PF.OTECT ION 
102 ’ 

104 1 Door Ger Versluis 
106 ’ 

108 ’<c)1988 MSX-Gids Lelystad 
110 ' 

112 I=&HA000:DEFÜSR=I:T=0 

114 READA$:IFA$="++”THEN120 

116 A=VAL(”&h"+A$):T=T+A 

118 POKEI,A:1=1+1:G0T0114 

120 IFT< >23633THENSCREEN0: PRINT”datafout” : 

END 

122 A=USR(0) 

124 * 

126 ’ 

128 DATA CD, 38,01,07,07, E6,03, 4F, 06,00 
130 DATA 21,Cl,FC,09,CB,7E,28,0E,21,C5 
132 DATA FC,09,7E,07,07,07,07,E6,0C,BI 
134 DATA CB,FF,32,25,A0,18,01,00,21,6D 
136 DATA 00,11,6D,A0,06,68,1A,F5,E5,D5 
138 DATA C5,5F,3A,25,A0,CD,14,00,Cl,Dl 
140 DATA El,Fl,13,23,10,EC,F3,21,9A,FD 
142 DATA 7E,FE,C9,28,07,21,9F,FD,7E,FE 
144 DATA C9, C0, 36, F7,23,3A,25,A0,77,23 
146 DATA 36, 70, 23,36,00,21,CC,FD,36,F7 
148 DATA 23, 77,23, 36,92, 23,36,00, C9, 98 
150 DATA 2A,00,F5,3A,6F,00,B7,20,19,E5 
152 DATA 2A,6D,00,2B,22,6D,00,7C,B5,20 
154 DATA 0C,D5,C5,CD,B5,00,3E,01,32,6F 
156 DATA 00, Cl, Dl,Ei,Fl,C9,F5,E5,D5,C5 
158 DATA 3A,6F,00,B7,28,07,CD,AE,00,AF 
160 DATA 32,6F,00,21,98,2A,22,6D,00,Cl 
162 DATA Dl.El,F1.C9,3A.E0,F3,F6,40,18 
164 DATA 05,3A, E0, F3, E6, BF, 47,0E, 01,78 
166 DATA F3, D3, 99, 79, F6, 80, D3, 99, E5, 78 
168 DATA 06,00,21, DF, F3,09, 77, El, C9, ++ 






u h«w V + DO j d ! el , van M ^ K2 ten opzichte van MSK1 
□rnt^ï THn* u dat J de S^fiache mogelijkheden veel 
6r , JW"* y°°i al wat betreft de resolutie en hBt 
aantal te gebruiken kleuren is MSH2 een hele voor¬ 
uitgang. Ook de nieuwe COPY- en SETPAGE- 
statements dragen een steentje bij. Met deze op¬ 
drachten is het mogelijk om snel beelden te copieren, 
te spiegelen en nog veel meer. Dit programma maakt 

3! br ïi* an Mnrwp c‘““^‘ijkheden. Er wordt, zoals 
de naam MOUSE 5 al doet vermoeden, gebruik 
gemaakt van SCREEN 5. In deze schermmode is de 
resolutie 256x212 beeldpunten, terwijl er 16 verschil¬ 
lende Kleuren kunnen worden gebruikt, die uit een 
palet van 512 kleuren gekozen kunnen worden. Het 
programma werkt alleen met diskdrive en ook het 
bezit van een muis is een vereiste. Tevens dient het 
videogeheugen 128K groot te zijn, wat echter bij alle 
tot nu toe op de markt gekomen MSK2-machines wel 
net geval is. Het programma is erg gebruiksvrien¬ 
delijk omdat er gewerkt wordt met ikonen. Dit zijn 
beeldsgmbolen die een bepaalde handeling voorstellen. 
Met behulp van de muis kan een bepaalde tekenoptie 
worden gekozen die dan met een druk op de muisknop 
wordt uitgevoerd, er komt bijna geen letter tekst 
aan te pas! De gemaaktB tekeningen kunnen uit¬ 
geprint worden op een 80 koloms printer en opqe- 
nomen worden in zelf gemaakte programma’s. 


MENUSTRUCTUUR 

Het programma is opgebouwd rond een aantal menu's 
©n paletten. Na het opstarten van het programma 
verschijnt in het midden van het scherm het teken¬ 
menu. Men kan nu met de muis een wit vlakje be- 
!"J re lf r L Cn 20 . de . gewenste optie aanwijzen, die met 
een klik op de linker muisknop kan worden uitae- 
voerd. Als men de muis helemaal naar links of naar 
rechts beweegt, verschijnt er vanzelf een ander 
menu of palet op het scherm. Van links naar rechts 
zijn er de volgende menu’s en paletten: 

Invoer en uitvoer menu 
Scherm manipulatie menu 
Teken menu 
Kleurenpalet 
Patronenpalet 

De menu s en paletten worden als het ware over de 
tekening heen geprojecteerd. Bij het uitvoeren van 
een optie verdwijnt liet menu ais het een belemme- 
r ng zou kunnen vormen bij het tekenen. Bij de 
eigenlijke tekenfuncties is dus het gehele scherm 
zichtbaar!! 


INVOER EN UITVOER MENU 

Vla dit menu kunnen we de in- en uitvoer- functies 
kiezen, zoals het saven, laden en uitprinten van een 
tekening, het opvragen van de M0USE5- files en het 
saven van de spuitbuspatronen. 

Saven en Iaden tekening. 

Als men deze opties kiest moet er eerst via het 
toetsenbord een filenaam worden ingevoerd. Na het 
ingeven van de filenaam wordt gevraagd of de 
gebruiker ermee akkoord gaat en pas daarna wordt 
de tekening gesaved of geladen. Het ingeven van een 
lege filenaam heeft tot gevolg dat wordt terugge- 
keerd naar het menu. 

Overzicht M0USE5-files. 

ümirrl 26 optle * an men een 0Ver2i cht krijgen van de 
un..e«' ^ e , kBnin g en die op diskette staan. Alleen de 
M0U5E5- files zijn voor het programma van belang 
zodat de andere files worden genegeerd!! 

Uitprinten tekening. 

Ook het uitprinten van de tekening behoort tot de 
mogelijkheden van het programma. Hierbij kan men 
kiezen tussen een normale of een 'doublé strike' 
afdruk. De laatste mogelijkheid is handig als het 
inktlint een beetje versleten is. Eerst verschijnt er 
een melding op het scherm waarin gevraagd wordt de 
printer klaar te zetten en op een toets te drukken, 
een van de muisknoppen we! te verstaan. Als men 
een toets geeft met de rechter muisknop, wordt 
teruggekeerd naar het menu. Drukken op de linker 
muisknop heeft tot gevolg dat het printen begint, 
mits de printer ook daadwerkelijk klaar staat? De 
tekening wordt daarna over twee velletjes A4 uitge¬ 
print. Het printen is voortijdig te onderbreken met 
een toets op de rechter muisknop. 

Saven spultbuspatronen. 

Met deze optie is het mogelijk om de veranderde 
spuitbuspatronen voor later gebruik te saven. Bij 
het opstarten van het programma worden deze pa¬ 
tronen daarna steeds automatisch ingeladen. 

Geheugenfuncties. 

Het is mogelijk om de tekening veilig te stellen door 
hem in het geheugen te zetten. Als na een tijd Ie 
verder tekenen het resultaat niet is zoals bedoeld, 
kan de tekening eventueel weer uit het geheugen 
worden gehaaid. B 

Terug naar uitgangspunt. 

Deze optie is handig als u een tekenfout heeft 
gemaakt. U kunt hiermee gewoon terug naar de 
situatie voor de laatste tekenopdracht. 
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Foutmeldingen. 

Wanneer het programma bij het saven of laden een 
fout ontdekt zal het daarvan een melding geven. De 
volgende foutmeldingen kunnen optreden: 

Disk is schrijfbeveiligd 
Disk is niet geformatteerd 
Geen disk in drive 
Disk i/o error 
File niet gevonden 
Disk is vol 

SCHERM MANIPULATIE MENU 

In dit menu staan de mogelijkheden om de tekening 
op allerlei manieren te veranderen. De mogelijkheden 
lopen uiteen van scrollen, spiegelen, vergroten, ver¬ 
kleinen, copieren tot scherm wissen en kleur veran¬ 
deren. 

Scroll functies. 

Het is mogelijk om delen van het scherm in alle rich¬ 
tingen te verschuiven. Hierbij dient eerst het vlak 
dat verschoven moet worden gekozen te worden. Dit 
gaat als volgt in zijn werk. Na het kiezen van de 
scrollfunctie verschijnt er een rechthoek op het 
scherm, met op een van de hoekpunten een kruis. Als 
men nu de linker muisknop ingedrukt houdt, kan men 
door de muis te bewegen de plaats van dat hoekpunt 
veranderen. Een korte klik op de linker muisknop 
zorgt ervoor dat de positie van een ander hoekpunt 
kan worden veranderd. Als men zo het juiste vlak 
heeft bepaald, moet men op de rechter muisknop 
drukken, waarna de rechthoek van het scherm ver¬ 
dwijnt. Het gekozen schermdeel kan nu over elke 
afstand verschoven worden door op de linker muis¬ 
knop te drukken. Een toets op de rechter muisknop 
betekent terugkeren naar het menu. De lege ruimte 
die bij het scrollen ontstaat wordt opgevuld met de 
huidige tekenkleur. Deze kan in het kleurenpalet 
worden aangegeven. 

Vergroten, verkleinen, spiegelen en copieren 
Met deze opties is het mogelijk om delen van het 
scherm te vergroten of te verkleinen, zowel in alleen 
de X- of Y- richting als in beide richtingen. Ook het 
spiegelen en copieren van schermdelen behoort tot 
de mogelijkheden. Men dient eerst een bepaald 
schermdeel aan te geven, het origineel. Vervolgens 
kan men door de linker muisknop ingedrukt te 
houden en met de muis te bewegen de plaats van het 
beeld bepalen. Als men de plaats van het beeld 
bepaald heeft, kan men de bewerking uitvoeren door 
op de rechter muisknop te drukken. Het is steeds 
mogelijk om voortijdig naar het menu terug te keren 
door de rechter muisknop net zo lang ingedrukt te 
houden, totdat het menu weer verschijnt. 

Kleur veranderen 

Het is ook mogelijk een willekeurige kleur op het 
scherm te veranderen in een andere kleur. Hiertoe 
dient men voor het kiezen van deze optie eerst de 
nieuwe kleur aan te wijzen in het kleurenpalet. Na 
het kiezen van de optie verschijnt er een klein 
rechthoekje op het scherm. Dit rechthoekje moet 
men met de muis op de te veranderen kleur plaatsen. 
Met een druk op de linker muisknop wordt de kleur 
daadwerkelijk veranderd, terwijl men met de rechter 
muisknop voortijdig kan terugkeren naar het menu. 


TEKENMENU 

In dit menu bevinden zich de eigenlijke tekenfunc¬ 
ties zoals het trekken van lijnen, het tekenen van 
rechthoeken, cirkels en driehoeken en het plaatsen 
van tekst. 

Tekenen met de muis. 

Hierbij kan men door de linker muisknop ingedrukt 
te houden en de muis te bewegen willekeurige rechte 
of gebogen lijnen trekken. Een druk op de rechter 
muisknop betekent terugkeren naar het menu. 

Lijnen trekken tussen punten. 

Met deze optie is het mogelijk om lijnen te trekken 
tussen aan te geven punten. Met de muis kan men 
het kruis over net scherm verplaatsen. Als men op 
een bepaald punt de linker muisknop indrukt en 
ingedrukt houdt wordt dat punt beschouwd als 
beginpunt en kan men met de muis het eindpunt 
bepalen. Na een druk op de rechter muisknop wordt 
er een lijn tussen de punten getekend. Een toets op 
alleen de rechter muisknop betekent weer terug¬ 
keren naar het menu. 

Tekst plaatsen. 

Na het kiezen van deze optie moet eerst het letter- 
formaat bepaald worden door de muis te bewegen. Na 
het op de linker muisknop drukken kan de tekst in 
het gekozen formaat worden ingevoerd. Vervolgens 
kan men de plaats van de tekst op het scherm 
bepalen. Na een klik op de linker muisknop wordt de 
tekst definitief geplaatst, drukken op de andere 
muisknop betekent terugkeren naar het menu. 

Spuitbus. 

Deze optie maakt het mogelijk om een gedeelte van 
het scherm in te vullen met een in het patronen- 
palet aangegeven patroon. Er wordt alleen ’gespoten’ 
als men de linker muisknop ingedrukt houdt. Een 
korte klik op de deze knop resulteert in een veran¬ 
dering van het spuitoppervlak. Met een druk op de 
rechter muisknop kan men terugkeren naar het 
menu. 

Vlak inkleuren. 

Hierbij moet men eerst met het kruis een punt van 
het in te kleuren vlak aangeven en vervolgens op de 
linker muisknop drukken. Daarna verschijnt er een 
klein rechthoekje op het scherm, waarmee de rand- 
kleur kan worden aangegeven. Met een toets op de 
linker muisknop wordt net aangegeven schermdeel 
ingekleurd met de huidige tekenkleur, terwijl met de 
rechter muisknop voortijdig naar het menu kan 
worden teruggekeerd. 

Lijndikte veranderen. 

Dit is eigenlijk geen echte tekenfunctie, maar een 
instelfunctie. Er kan gekozen worden tussen twee 
lijndiktes, namelijk 1 en 2. 

Kleur toekennen aan kleurenpalet. 

Stel, men wil in een bepaalde kleur gaan tekenen, die 
al in de tekening gebruikt is en men weet niet welke 
kleur dit is in het kleurenpalet. In dat geval biedt 
deze optie uitkomst. Op het scherm verschijnt een 
klein rechthoekje, waarmee men de gewenste kleur 
kan aangeven. Met een druk op de linker muisknop 
wordt deze kleur aan het kleurenpalet toegekend. 
Deze kleur wordt daarna dus de huidige tekenkleur. 

Geometrische figuren. 

Het is ook mogelijk geometrische figuren te tekenen 
zoals cirkels, rechthoeken en driehoeken, al of niet 
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ingekleurd. Hierbij moet steeds eerst de plaats 
bepaald worden, waar het figuur op het scherm gezet 
gaat worden. Hiervoor geldt de volgende standaard¬ 
procedure. Na het kiezen van de optie verschijnt er 
een figuur op het scherm, met op een van de hoek¬ 
punten een kruis. Als men nu de linker muisknop 
ingedrukt houdt, kan men door de muis te bewegen 
de plaats van dat hoekpunt veranderen. Een korte 
klik op de linker muisknop zorgt ervoor, dat de 
plaats van een ander hoekpunt kan worden veran¬ 
derd. Als men zo het juiste vorm van het figuur 
heeft bepaald, moet men een klik op de recnter 
muisknop geven, waarna het figuur daadwerkelijk op 
het scherm wordt getekend. Door de rechter muis¬ 
knop ingedrukt te houden, kan voortijdig worden 
teruggekeerd naar het tekenmenu. 


KLEURENPALET 

Het kiezen van een kleur gaat erg simpel. Men 
brengt de pijl naar de gewenste kleur en drukt dan 
op de linker muisknop. Van de geselecteerde kleur 
kunnen de RGB- waarden worden veranderd. Een 
toets op de rechter muisknop heeft tot gevolg dat 
de standaard paletwaarden weer aan het kleuren¬ 
palet worden toegekend. 


PATRONENPALET 

In dit palet staan de patronen die met de spuitbus 
uit het tekenmenu op het scherm kunnen worden 
gebracht. Het kiezen van een bepaald patroon gaat 
weer heel eenvoudig; gewoon de pijl naar het gewen¬ 
ste patroon brengen en op de linker muisknop 
drukken. Het is mogelijk om een patroon te veran- 
deren of een geheel nieuw patroon te ontwerpen. Als 
men namelijk op de rechter muisknop drukt, ver¬ 
schijnt het geselecteerde patroon in een soort 
raster midden op het scherm. Met de linker muisknop 
kunnen nu de puntjes aan of uit worden gezet. Het 
ontwerpen wordt beëindigd met een toets op de rech¬ 
ter muisknop. Het veranderen van de patroonkleuren 
gaat als volgt. Wil men de voorgrondkleur van de pa¬ 
tronen veranderen, dan moet men enige tijd de lin¬ 
ker muisknop ingedrukt houden. De voorgrondkleur 
wordt dan veranderd in de huidige tekenkleur. Wil 
men de achtergrondklBur wijzigen, dan moet men de 
rechter muisknop enige tijd ingedrukt houden. 


TEKENING OPNEMEN IN PROGRAMMA 

De gemaakte tekeningen kunnen zoals gezegd in een 
zelfgemaakt programma worden opgenomen. Men moet 
hiertoe in het programma na de SCREEN5- opdracht 
de volgende instructies opnemen: 

BLOAD"naam tekening.PM5“.S:C0L0R*REST0RE 
BLOAD"naam tekening.TM5“,S 

De eerste twee instructies leiden tot het inladen van 
de RGB- waarden van het kleurenpalet, die horen bij 
de tekening: de derde instructie laadt de eiqenliike 
tekening in. 


HET PROGRAMMA 

Het programma is grotendeels in BASIC geschreven, 
een bewijs van de grote klasse van MSK2- BASIC. 
Alleen handelingen die in BASIC te veel tijd in beslag 
nemen, zoals het uitprinten van de tekening, zijn in 
machinetaal geprogrammeerd. Het programma bestaat 
uit een aantal delen: een BASIC gedeelte en een 
aantal geheugenfiles, die vanuit het BASIC program¬ 
ma worden geladen. Deze geheugenfiles worden 
gemaakt met het BASIC programma ’M0USE5DT\ dat 
grotendeels bestaat uit dataregels. Bij het uitprin¬ 
ten van de tekening wordt gebruik gemaakt van de 
bit- image printmode. De printercodes hiervoor zijn 
voor praktisch iedere printer verschillend, vandaar 
dat er het een en ander in het programma door de 
gebruiker zal moeten worden aangepast. De printer¬ 
codes moeten worden ingevoerd in de string$ Elè tot 
en met E3$ in regel 170. De strings, die standaard 
gevuld zijn met de waarden voor de PHILIPS NMS1431 
printer, moeten de volgende codes bevatten: 

El$ Regelopvoer van 1/12 inch, E2$ 384 tekens gra¬ 
fisch printen met een dichtheid van 60 dots per inch 
en E3$ Reset printer 

Als blijkt dat de banen ondersteboven geprint 
worden moet het REM- statement in regel 190 verwij¬ 
derd worden. 


Veel succes!! 


10 REM MOUSB5 

20 REM TEKENPROGRAMMA voor MSX2 met 128K V 
RAM, DISKDRIVE en MUIS 
30 REM 

40 REM Door: M. van der Graaff 
50 REM (c)1988 MSX-Gids Lelystad 
60 REM 
70 REM 

80 CLS:CLEAR100,&HD880:DEFINTA-Z:OPEN”GRP: 
” AS1: DEFUSR=&HDB00: ONSTOPGOSUB300:STOPON:O 
NERRORGOTO500:FT=PEEK(&HF3DE):VI=PEEK(&HF3 
B0): VC=PEEK (&HF3E9): AC=PEEK (&HF3BA): BOPEE 
K(&HF3EB):SC=PEEK(&HFCAF):SETBEEP1,3:COLOR 
1, 15, 15:SCREEN5,2:VDP(9)=8 
90 X=0:Y=0; LX=0:LY=0: LD=1: DUMY=0: 1=0:ME=3: 
XM=256:YM=1: XP=0 : YP=0 :VK=1: AK=15:SP=1:SO=8 
: YM(1)=95:YM(2) = 159:YM(3) = 159:YM(4) = 191:YM 
(5>=159:X(l)=64:Y(1)=64:X(2)=128:Y(2)=128: 
X(3)=192:Y(3)=128:X(4>=128:Y(4)=64 
100 BLOAD"SPRITEl.M5”,S: PUTSPRITE0, (120,98 
),1,1:PUTSPRITE1,(120,98),7,41:BLOAD”SPRIT 
E2.M5”,S:BLOAD”PATROON.M5”, S: BLOAD”ATRIBUT 
. M5”,S:BLOAD”MTCODES. M5”:COLORSPRITE(0>=0: 
COLORSPRITE(1)=0: SETPAGE0 ,1:CLS: SETPAGE0 ,2 
:CLS:DUMY=USR(&H69): SETPAGE0, 3:CLS 
110 El$=CHR$(27)+”T12":E2$=CHR$(27)+”G0600 
384”:E3$=CHR$(27)+”@” 

120 FORI=lTOLEN(E2$)+l: PGKE&HDD50+I, ASC(MI 
D$(CHR$(13)+E2$,1,1)):NEXT: POKE&HDD68, LEN( 
E2$)+1 

130 SETPAGE2,0: VDP<9) = 10:POKE&HDBA5, 3: POKE 
&HDBA6,4;FOR1= ITO?: PRESET(40+1*20, 110): COL 
OR1:POKE&HDBA7,ASC(MID$("MOUSE 5”,1,1)):DU 
MY=USR(&HDB30):NEXT:F0RI=1T07:PRESET(41+1* 
20 ,111): C0L0R9: POKE&HDBA7, ASC(MID$("MOUSE 
5”,I,1)):DUMY=USR(&HDB30):NEXT:PQKE&HDBA5, 
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140 P0KE&HDBA6,2:F0RI=1T014:PRESET(32+1*12 
- 15®>:C0L0R1:PQKE&HDBA7,ASC(MID$(”tekenpro 
gramma”,1,1)):DUMY=USR(&HDB30):NEXT:F0RI=1 
T014:PRESET(33+1*12, 151):C0L0R7: POKE&HDBA7 
, ASC(MID$ ("tekenprogramma” , I, 1)): BÜMY=USR ( 
&HDB30):NEXT: SETPAGE0, 0:COLOR1: VDP(9)=8 
150 POKE&HDB2F,ME:DUMY=USR(&HDB09) 

160 DUMY=PAD<12): XM=XM+PAD <13): YM=YM+PAD<1 
4):IFYM<0THENYM=YM(ME)-8ELSEIFYM>YM(ME)THE 
NYM=0 

170 IFXM<16THENXM=495ELSEIFXM>495THENXM=16 
180 LME=ME: ME= (XM-16)/96+1: IFMEOLMETHEICO 
LORSPRITE(0)=0:COLORSPRITE(15)=0:P0KE&HDB2 
F, ME:VDP(9)=10:DUMY=USR(&HDB09):VDP(9)=8;I 
FYM(LME)>YM(ME)THENYM=YM(ME)-16 
190 0NMEG0SUB210,210,210,220, 230: IFSTRIGd 
)THENGOSUB250ELSEIFSTRIG(3)THENGOSUB280 
200 GOTO160 

210 PUTSPRITE15,((XM/2-8AND2401+8,(YM/2AND 
240)-l),15,41:RETURN 

220 COLORSPRITE(1)=15+14*(VK=15):IFYMC160T 
HENCOLORSPRITE(15)=0: PUTSPRITE0, ((XM/2-8AN 
D240)+8, (YM/2AND240)-1),15+14* <YM>128ANDXM 
>368),34:RETURNELSECOLORSPRITE(0)=0: PUTSPR 
ITE15, <<XM/2-8AND240)+8, <YM/2AND240)-1), 15 
,41:RETURN 

230 IF(VPEEK(&H7420)XORVPEEK(&H7510))=14TH 
ENCOLORSPRI TE(1)=7ELSEIFVPEEK(&H7420)=150R 
VPEEK(&H7510)=15THENC0L0RSPRITE(1)=1ELSECO 
LORSPRITE(l)=15 

240 PUTSPR ITE0, <(XM/2-8AND240)+8,(YM/2AND2 
40)-1),VPEEK(&H7410),34:RETURN 
250 BEBP:XP=(XM-16)/32+l:YP=YM/32+l:IFXP=9 
ANBYP=2ORME>3ORME<2THENONMEGOSUB320, 610,91 
0,1670,1710:COLORVK,15:DUMY=PAD(12): RETURN 
260 IFXPO90RYPO5THENCOPY (0,0) - (255, 211) T 
0(0,0), 1 

270 VDP(9)=10:P0KE&HDB2F,6:DUMY=USR(&HDB09 
):VDP(6)=31:VDP(9)=8:ONMEGOSUB320, 610,910: 
VDP(9)=10:VDP(6)=15:PQKE&HDB2F,ME:DUMY=USR 
(&HDB09): VDP(9)=8: COLORVK,15: DUMY=PAD(12): 
RETURN 

280 IFME=4THENBEEP:GOSUB1700ELSEIFME=5THEN 
BEEP:GOSUB1730 
290 RETURN 

300 SCREENSC:COLORVC,AC,BC:POKE&HF3B0 VI:I 
FFT=255THENKEY0N 

310 P0KE&HFDA4,&HC9:ONERRORGOTO: END 

320 ON(XP-1)*3+YPGOTO330,380,580,330,380,5 

90,480,420,600 

330 GOSUB350:IFIN$=”J”ORIN$=”j”THBNIFXP=1T 
HENCOPY(0,0)-(255,211)TO(0,0),1:BLOADFIS+” 

. PM5”,S:COLOR=RESTORE:BLOADFIS+”,TM5”,SELS 
EIFXP=2THENBSAVEFI $+”.PM5”, &H7680, &H769F, S 
:BSAVEFI8+”.TM5”,&H0,&H69FF,S 
340 FORI=1TO250:NEXT:RETURN 
350 COPY(46,84)-(209, 127)T0(46,84), 2 
360 LINE(48,86)-(207, 125),7, BF: LINE(47, 85) 
-(208,126),1,B:LINE(46,84)-(209,127), 1,B:C 
0L0R1,7: X=56: Y=94: LE=8: I *=’’FILENAAM: ” : GOSU 
B2270:IFIN$<>””THENFI$=IN$:X=64:Y=lll: LE=1 
:I$=”AKOORD?:”:GOSUB2270:IFIN$=”N"ORIN$=”n 
"THEN360 

370 COPY(46,84)-(209, 127),2T0(46,84): RETUR 
N 

380 GOSUB390:IFS=3THENRETURNELSELPRINTE1$: 
P0KE&HDD67,XP:DUMY=USR (&HDC0E) : LPRINTE3S:R 
ETURN 

390 COPY(46,84)-(209,127)T0(46,84),2:LINE( 
48,86)-(207,125),7,BF:LINE(47, 85)-(208, 126 
), 1,B:LINE(46, 84)-(209,127),1,B:C0L0R1,7:P 
SET(56,94),7:PRINT#1,"ZET PRINTER KLAAR!”: 
PSET (88, 111), 7; PRINT#1, '’GEBF TOETS” 

400 IFSTRIG(1)ANDUSR(&HDD69)=255THENS=1ELS 
EIFSTRIG(3)THENS=3ELSE400 


410 COPY(46,84)-(209,127),2T0(46,84):RETUR 
N 

420 COPY(50,60)-(205,199)TO(50,60),2:POKE& 
HDD7E,0:P0KE&HDD7F,&HD8:P0KE&HFDA4, &HC9:PO 
KE&HFDA5, &H75:P0KE&HFDA6,&HDD:P0KE&HFDA4,& 
HC3: C0L0R1,7: FILES”*. TM5”:LINE(52, 62)-(203 
,197),7,BF:LINE(51,61)-(204,198),1,B:LINE( 
50,60)-(205,199),1,B 

430 F0RI=1T0PEEK(&HDD7E)/12:PRESET(60+((I- 
l)MOD2)*72, 70+INT((I-l)/2)*8), 7 
440 PRINT#1,CHR$(PEEK(&HD7F4+1*12))+CHR$(P 
EEK(&HD7F5+1*12))+CHR$(PEEK(&HD7F6+1*12))+ 
CHR$(PEEK(&HD7F7+1*12))+CHR$(PEEK(&HD7F8+I 
*12))+CHR$(PEEK(&HD7F9+1*12))+CHR$(PEEK(&H 
D7FA+1*12))+CHR$(PEEK(&HD7FB+1*12)):NEXT 
450 PSET(88,183),7:PRINT#1,"GEEF TOETS” 

460 IFSTRIG(1)ORSTRIG(3)THENCOPY(50, 60)-(2 
05,199),2T0(50,60):P0KE&HFDA4,&HC9:FORI=1T 
0250:NEXT:RETURNELSE460 

470 LINE(52,62)-(203,197),7, BF: LINE(51,61) 
-(204,198),1,B:LINE(50,60)-(205,199),1,B:P 
SET(60,70),7:PRINT#1,"GEEN M0USE5 FILES”:P 
SET(60,78),7:PRINT#1,SPACES(4)+”GEVONDEN!” 
+SPACE$(4):GOTO450 

480 COPY(10,84)-(245,127)TO(10,84), 2: LINE( 
12, 86)- (243, 125), 7, BF: LINEdl, 85)- (244, 126 
), 1, B: LINE (10,84)- (245,127), 1, B: C0L0R1,7: P 
SET(20,94),7:PRINT#1,"DOE PROGRAMMADISK IN 
DRIVE!”:PSET(88,111),7:PRINT#1,"GEEF TOET 
S” 

490 IFSTRIGd) THENCOPY (10,84)-(245,127),2T 
0(10,84):BSAVE”PATROON.M5”,&H7E00, &H7FDF,S 
:RETURNELSEIFSTRIG(3)THENCOPY(10,84)-(245, 
127),2T0(10,84):RETURNELSE490 
500 P0KE&HFDA4,&HC9:F0$=”” 

510 IFERR=53THENIFERL=420THENRESUME470ELSE 
FO$=”FILE NIET GEVONDEN!” 

520 IFERR=7THEN570ELSEIFERR=60THENFO$=”DIS 
K IS NIET GEFORMATTEERD!"ELSEIFERR=66THENF 
0$=”DISK IS VOL!”ELSEIFERR=68THENF0$="DISK 
IS SCHRIJFBEVEILIGD!”ELSEIFERR=69THENF0$= 
"DISK 1/0 ERROR!"ELSEIFERR=70THENFO$=”GEEN 
DISK IN DRIVE!” 

530 IFFO$=”"ORERL=100THENPOKE&HFDA4,&HC9:G 
OTO300 

540 COPY(10,84)-(245,127)TO(10,84),2:LINE( 
12, 86)- (243, 125), 8, BF: LINEdl, 85)- (244, 126 
), 1,B:LINE(10,84)-(245,127),1,B:BEEP:COLOR 
1,8: PSET(20, 94), 8: PRINT#1,SPACES((27-LEN(F 
0$))/2)+F0$:PSET(88,111),8:PRINT#1,"GEEF T 
.OETS” 

550 IFSTRIG(1)ORSTRIG(3)THENCOPY(10,84)-(2 

45,127),2TO(10,84):RESUME560ELSE550 

560 FORI = 1TO250: NEXT: RETURN 

570 BEEP: VDP(9) = 10:VDP(6) = 15: P0KB&HDB2F, ME 

: DUMY=USR(&HDB09): VDP(9)=8:COLORVK,15:RESU 

ME200 

580 COPY(0,0)-(255,211),3TO(0,0):RETURN 
590 COPY(0,0)-(255,211)TO(0, 0), 3: RETURN 
600 COPY(0,0)-(255,211), ITO(0,0): RETURN 
610 XP=XP-3:ON(XP-1)*5+YPGOTO620, 640,660,6 
80,700,730,750,770,780,790,800,840,880,890 
, 900 

620 GOSUB1880 

630 IFSTRIG(1)THENCOPY(X(1)+4,Y(1))-(X(2) 
Y(2))T0(Xd), Y(1)):LINE(X(2)-3,Y(1))-(X(2) 

,Y(2)),,BF:FORI=1TO250:NEXT:GOTO630ELSEIFS 
TRIG(3)THENRETURNELSB630 
640 GOSUB1880 

650 IFSTRIG (DTHENCOPY (X (1), Y (1)+4)- (X (2) , 
Y(2))T0(X(l),Y(l)):LINE(X(l),Y(2)-3)-(X(2> 

,Y(2)),,BF:FORI=1TO250:NEXT:GOTO650ELSEIFS 
TRIG(3)THENRETURNELSE650 
660 GOSUB1880:IFSTRIG(3)THBNRETURNELSEGOSU 
B720:XV=4:YV=4:GOSUB1980:IFSTRIG(3)THENRET 
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670 FORX=X(l)TOX(2):FORY=0TO1: COPY(X Y <1)) 
(X,Y(2))TO((X-X(l))*2+Y,0) 2:NEXTY X-FORY 

=0TOY(2)-Y(1);FORX=0TO1:COPY(0,Y)-((X(2?-X 
a> )*2n, Y), 2 to(x (3), T<3) • mrxfï, l 

SL 0 ??-? 1 ™!; IFSTR i G < 3 >thenreturnelsegosu 

B720.XV-1:YV-1:GOSUB1980:IFSTRIG(3)THENRET 

690 FORX=X(l)TOX<2)STEP2:COPY(X. Y (1)) - (X Y 
< 2 >>TO«X-X(l))/2,0),2: NEXTX: FORY=0TOY<2) - 
Y(1)STEP2:COPY(0,Y)-((X(2)-X<1))/2 Y) 2TO< 
X <3),Y(3)+Y/2):NEXTY:RETURN ’ ' 

I^!L G ™ UB1880: 1FSTR1G (3 > THENRETURNELSEGOSU 
B720:XV-2: YV-2:GOSUB1980:1FSTRIG(3)THENRET 
URN 

!3 10 o C ^ Y<X(1) ' Ya)) ' <X(2) - Y(2 >>TO(X(l),Y(l 
Y (3) ^RETURN 1} ’ Y ^ 1> ^ _< ‘ X ^ 2 ^ ,Y(2 ^ > ' 2TO(X(3), 

TURN LINE<Xa> ’ Y(1)) ~ (X<2) ’ Y ( 2>), 1,B, XOR:RE 
730 GOSUB1880 

740 IFSTRIG<l)THENCOPY(X<2)-4,Y<l))-(X(l) 
Y(2))T0(X(2),Y(1));LINE(X(1), Y(l))-(X(l)+3 
» Y ^ 2 ' > *« > SF: FORI-1TO250: NEXT: GOTO740ELSEIFS 
TRIG(3>THENRETURNELSB740 
750 GOSUB1880 

760 IFSTRIG(l)THENC0PY<X(2),Y(2)-4)-(X(l) 
Y(l) )T0(X(2), Y<2) > : LINE(Xd), Y(l>)-<X(2) Y 
(1) + 3), , Bi?: FORI = 1TO250: NEXT: GOTO760ELSEIFS 
TRIG(3)THENRETURNELSE760 

n^L G vu-? 1 l 8 r® : IFSTRIG (3>THENRETURNELSEGOSU 
B720.XV-2:YV-4:GOSUB1980:IFSTRIG<3)THENRET 
URNELSECOPY<0,0 >-<255,211> TO <0,0 >,2 :f5rY=Y 
(l)TOY(2):FORX=0TO1:COPY(X<1), Y) - (X (2) Y> 
2TO<X(3),Y(3)+(Y-Y(1)>*2+X>:NEXTX,Y:RETURN 

I™ G 2 SUB1880:1FSTR1G (3 >thenreturnelsegosu 

B720:XV-2:YV-1:GOSUB1980:IFSTRIG<3)THENRET 
URNELSECOPY <0,0)-<255,211)TO <0,0),2:FORY=Y 
<1)TOY(2)STEP2:COPY(X<1),Y)-<X<2> Y).2TO<X 
<3>, Y<3) + (Y-Y<1))/2):NEXTY:RETURN 
790 CLS:RETURN 

5ÏL G 9S U ? 1 ? 80:IFSTR1G <3} THENRETURNELSEGOSU 
B720:XV-2:YV-2:GOSUB1980:IFSTRIG(3)THENRET 
URNELSECOPY <0,0)-<255,211)TO <0,0),2 fDlÜ<2 
048) 

3THENHX=63 (1}T0X <2 > STEP64:HX=X <2 >-X:IFHX>6 

3TLNHY=6r i>TOY(2>STEP64:HY=Y<25 ~ Y:IFHY>6 

830 COPY(X,Y>-(X+HX,Y+HY),2T0S: COPYS, 2TO<X 
(3)+X-X(l), Y<3) +Y(2)-Y(D- (Y-Y (1))); NEXTY 
X:ERASES: RETURN 

i^!L GOSUB1880: IFSTRIG < 3 >thenreturnelsegosu 

ST20:XV-2:YV-2:GOSUB1980:IFSTRIG<3)THENRET 
URNELSECOPY <0,0) ■-(255,211)TO <0,0),2:DIMS(2 
048) 

3THENHX=63 (1)1 ° X(2) STEP64:HX=X <2 >"X:IFHX> 6 

860 FQRY=Y(l)TOY(2)STBP64:HY=Y<2)-Y:IFHY>6 
3THENHY=63 

870 COPY(X,Y)-(X+HX,Y+HY),2T0S:COPYS,1T0(X 

(3)+X(2)-X(1)-(X-X(1)),Y(3)+Y-Y(1))7nEXTY 

X:ERASES:RETURN ï( 

^L GOSUB1880: IFSTRIG <3 > thenreturnelsegosu 

udIct :YV_2:G0SUB 1980:1FSTRIG(3)THENRET 
URNELSECOPY(0,0)-<255,211)TO(0, 0), 2: FORX=X 
(1)TOX(2):FORY=0TO1:COPY(X, Y< 1 > >- <X Y<2> > 
2T0(X(3)+<X-X<1))*2+Y,Y<3)):NEXTY,X:RETURN 
8G0 G °^ R1 880: IFSTRIG (3) THENRETURNELSEGOSU 
B720:XV-1:YV-2:GOSUB1980:IFSTRIG(3)THENRET 

URNELSECOPY(0, 0)-(255,211)TO(0, 0) ,2 FORX=X 

(l)TOX(2)STEP2:COPY(X,Y(l>)-(X, Y(2)) 2TO(X 
(3)+(X-X(1))/2,Y(3)):NEXTX:RETURN 
900 GOSUB2220:IFS=lTHENOK=POINT(X,Y):LINE< 

0,0)-(255,211),OK,BF,XOR:VDP(9)=10:SETPAGE 
0,2:LINE(0,0)-(255,211),VKXOROK,BF:COPY(0 


0) O1 (2 ^ 5 » 21 ^’ 0TO(0, 0), , TPSET: LINE<0, 0)-(25 
5,211),OK, BI*, XOR: COPY(0,0)- (255,211)TO(0 0 
),0: SETPAGE0 ,0:RETURNELSERETURN ’ 

® 10 XF = XP " 6 :ON(XP-1)*5+YPGOTO920,970,1090 

ll 1320113301135011380 ’ 16 

920 FORI=1TO250: NEXT: X=128: Y=106 
930 IFSTRIG(3)THENRETURNELSELX=X:LY=Y:DUMY 

7 P Acri 2> ■’ X-X+PAD< 13): Y=Y+PAD(14): IFX<0THEN 
X=0ELSE IFX>255THENX=255 

9401 FY<0THENY=0ELSE IFY>211THENY=211 
?E 0 PUTSP R ITE 0» <X-3,Y-4),(VPEEK<&H7400)+1) 
AND15, 0:IFSTRIG(1)=0THEN930ELSEIFLD=1THENL 
INE(LX,LY)-(X,Y):GOTO930 

?Y) - BF:LI NE(LX, 

T L vi7 S JFr ( i: D ~ 1. LD-1), , BF: FOR I =0TOLD-1: LINB < 
LX+1,LY+LD-1>-<X+1,Y+LD-1):LINE(LX+1, L Y+LD 
;1)"<X+I,Y+LD-1):LINE(LX+LD-I-1,LY)-(X+LD- 
I-1,Y):NEXT:GOTO930 

970 BE=&H7DE0+SP*32:POKE&HDC0D,INT(BE/256) 

: POKE&HDC0C,INT<BE-256*PEEK(&HDC0D)):POKE& 
HDC0A, VPEEK(&HF500+SP*16)+16*VPEEK(&HF500+ 
SP*16):POKE&HDC0B,VPEEK(&HF410+SP*16)+16*V 
PEEK(&HF410+SP*16) 

980 VDP(9)=10:S$=SPRITE$(47+SP): SETPAGE0 2 
: SPRITE$(47+SP)=S$:DUMY=USR(&HDBAA):COPY(0 
, 0)-(15, 15)T0(16,0); COPY(0,0)-(31,15)TO(0 
16): SETPAGE0, 0:VDP(6)=31:VDP(9)=8:X=128-Y= 
106 

990 IFSTRIG(1)THEN1030ELSEIFSTRIG(3)THENRE 
TURN 

1000 DUMY=PAD(12):X=X+PAD(13): Y=Y+PAD(14); 

IFX<0THENX=0ELSEIFX>256-SO)C4THENX=256-SO*4 
1010 IFY<0THENY=0ELSEIFY>212-SO*2THENY=212 

SQ*2 

1020 PUTSPRITE0, (X,Y-1),(VPEEK(&H7400)+1)A 
ND15,9-SO: GOTO990 

1030 FORI=1TO250: NEXT: IFSTRIG(DTHEN1060 
1040 SO=SO+l:IFSO>8THENSO=2 
1050 GOTO990 

1060 DUMY=PAD(12): X=X+PAD(13):Y=Y+PAD(14)• 
1 I ^ 0THEIfX=0ELSEIFX>256_SO *2THENX=256-SOC2 
1070 IFY<0THENY=0ELSEIFY>212-SO*2THENY=212 
-~S0^2 

1080 PUTSPRITE0, (X,Y-1),(VPEEK(&H7400)+1)A 
ND15, 9-SO: IFSTRIG(1)THENC0PY(XM0D16,YMOD16 
) STE p (SO*2-l,SO*2-l),2TO(X,Y):GOTO1060ELS 
E990 

109 0 MP=4:GOSUB2120: IFSTRIG(3)THENRETURNEL 
SEX1=X(1):Y1=Y(1):X2=X<2):Y2=Y(2):GOSUB110 

Vlizlrïl :Y1=Y( 2):X2=X(3):Y2=Y(3):GOSUB110 
0:Xl-X(3): Yl=Y(3):X2=X(4):Y2=Y(4):GOSUB110 
0:Xl-X(4): Y1=Y(4):X2=X(1):Y2=Y(1):GOSUB110 
0:RETURN 

1100 IFLD=1THENLINE(X1, Y1)-<X2,Y2):RETURNE 
LSELINE(X2,Y2)-(X2+LD-1, Y2+LD-1), , BF: LINE( 

XI, YD- (Xl+LD-l, Yl+LD-1), , BF: FORÏ=0TOLD-I: 

LINE(X1+1, Y1+LD-1)-(X2+I,Y2+LD-1):LINE(X1+ 

I,Y1+LD-1)-(X2+I,Y2+LD-1):LINE(XI+LD-I-1,Y 

1) -(X2+LD-1-1,Y2): NEXT: RETURN 

1110 GOSUB1880: IFSTRIG(3)THENRETURNELSEX1= 

X< 1) •' Y1=Y(1): X2=X<2): Y2=Y(1): GOSUB1100: Xl = 
X(2): Y1=Y(1):X2=X(2):Y2=Y(2):GOSUB1100:Xl= 

X(2):Yl=Y(2): X2=X(1):Y2=Y(2): GOSUB1100:Xl = 

: Y1=Y <2): X2= X <1): Y2=Y (1): GOSUB 1100: RET 

URN 

1120 GOSUB1880:IFSTRIG(3)0RX(2)-X(l)=0ORY( 

2) -Y(1) =0THENRETURN 

1130 X=(X(l)+X(2))/2:Y=(Y(l)+Y(2))/2:IFX(2 
)-X( 1>>Y (2)-Ya) THE NST=(X<2)-X(l))/2:AF! = ( 
Y(2)-Y(1))/(X(2)-X(1))ELSEST=(Y(2)-Y(1))/2 
:AF!=(Y(2)-Y(l))/(X(2)-X(l)) 

1140 FORI=0TOLD-1:CIRCLE(X,Y),ST-I ,,AF!• 
NEXT: RETURN ”” 

1150 X=128;Y=106 
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1160 IFSTRIG (1)THENLX=X:LY=Y:GOTO1200ELSEI 
FSTRIG <3)THENRETURN 

1170 DUMY=PAD(12):X=X+PAD <13);Y=Y+PAD(14): 
IFX< 0THENX=0ELSE IFX> 255THENX=255 
1180 IFY<0THENY=0ELSEIFY>211THENY=211 
1190 PUTSPRITE0, (X-3.Y-4), (VPEEK(&H7400)+1 
)AND15,0:GOTO1160 

1200 IFSTRIG(1 )=0THENL INE(LX,LY)-(X,Y),1,, 
XOR:PSET(LX,LY),1,XOR;GOTOl160ELSEIFSTRIG( 
3)THEN1240ELSELINE(LX,LY)-(X,Y),1,,XOR 
1210 DUMY=PAD(12): X=X+PAD(13): Y=Y+PAD(14): 
I FX<0THENX=0ELSE IFX> 255THENX=255 
1220 LFY <0THENY=0ELSE IFY>211THENY=211 
1230 PUTSPRITE0, (X-3.Y-4), (VPEEK(&H7400)+1 
)AND15,0:FORI=1TO20:NEXT:LINE(LX,LY)-(X,Y) 

, 1, ,XOR:GOTO1200 

1240 IFLD=1THENLINE(LX,LY)-(X,Y):GOTO1160 
1250 LINE(X,Y)-(X+LD-1,Y+LD-1), , BF: LINE(LX 
, LY)-(LX+LD-1, LY+LD-1>,,BF:FORI=0TOLD-1:LI 
NE(LX+I,LY+LD-1)-(X+I,Y+LD-1):LINE(LX+I,LY 
+LD-1)-(X+I,Y+LD-1):LINE(LX+LD-I-1,LY)-(X+ 
LD-I-1,Y):NEXT: GOTOl160 
1260 X=128:Y=106:FORI=1TO250: NEXT 


1270 IFSTRIG(1)THEN1310 ELSEIFSTRIG(3)THENR 
ETURN 

1280 DUMY=PAD(12):X=X+PAD(13):Y=Y+PAD(14): 
I FX<0THENX=0ELSE IFX>255THENX=255 
1290 IFY< 0THENY =0ELSEIFY>211THENY=211 
1300 PUTSPRITE0, (X-3.Y-4),(VPEEK(&H7400)+1 
)AND15,0:GOTO1270 

1310 HX=X: HY=Y: GOSUB2220:IFS=3THENRETURNEL 
SEPAINT(HX,HY),VK,POINT(X,Y):FORI=1TO250:N 
EXT:RETURN 


1320 MP=4:GOSUB2120:IFSTRIG(3)THENRETURNEL 
SEGOSUB1820:LINE(X(1),Y(l))-(X(2),Y(2)),0: 
LINE(X(2),Y(2))-(X(3),Y(3)),0:LINE(X(3),Y( 
3))-(X(4),Y(4)),0:LINE(X(4),Y(4))-(X(l),Y( 
1)),0:PAINT(0,0),0,0:COPY(0,0)-(255,211),2 
TO(0,0),0,TPSBT: SETPAGE0, 0:RETURN 


1330 GOSUB1880:IFSTRIG(3)THENRETURNELSEGOS 
UB1820 


1340 LINE(Xd), Y(1))-(X(2),Y(2)),0,B:PAINT 
(0,0), 0,0:COPY(0,0)-(255,211),2TO(0,0),0,T 
PSET: SETPAGE0 ,0:RETURN 

1350 GOSUB1880:IFSTRIG(3)ORX(2)-X(1)=0ORY( 
2)-Y(1)=0THENRETURNELSEGOSUB1820 
1360 X=(X(l)+X(2>>/2:Y=(Y(l)+Y(2))/2:IFX(2 
)-X(l)>Y(2)-Y(l)THENST=(X(2)-X(l))/2:AF!=( 
Y(2)-Y(l))/(X(2)-X(l))ELSEST=(Y(2)-Y(l>)/2 
:AF! = (Y <2)-Y(1))/<X(2)-X(1)) 

1370 CIRCLE(X, Y),ST,0, ,,AF!:PAINT(0, 0), 0, 0 
:COPY(0,0)-(255,211),2TO(0,0), 0, TPSET: SETP 
AGE0,0: RETURN 

1380 SETPAGE0 ,2:CLS:SETPAGE2,2:VDP(9) = 10: X 
V=l:YV=1:X=186:Y=8 

1390 COLOR1: PRESET (10,0): PR I NT#1, ’’ LETTERGR 
OOTTE KIEZEN:”:GOSUB1450 

1400 IFSTRIG(1)THEN1460ELSEIFSTRIG(3)THENS 
ETPAGE0.0: RETURN 

1410 LXV=XV: LYV=YV: DUMY=PAD(12):X=X+PAD(13 
): Y=Y+PAD(14): IFX<186THENX=186ELSEIFX>226T 
HENX=226 

1420 IFY<8THENY=8ELSEIFY>64THENY=64 
1430 XV=(X-178)/8:YV=Y/8:IFXV=LXVANDYV=LYV 
THEN1400ELSELINE(178,0)-(177+LXV*8, -1+LYV* 
8), 1,B, XOR 

1440 GOSUB1450:GOTO1400 

1450 LINE(178,0)-(177+XV*8,-1+YV*8),1,B,XO 
R:RETURN 


1460 LINE(0,80)-(255,211),0,BF:PSET(10,68) 
,15; PRINTfl, "GEEF TEKST:”:POKE&HDBA5,XV:PO 
KE&HDBA6,YV: AT=0 :LE=246/(XV*8)-1: GR=0 : DUMY 
=USR(&H156): GOSUB1540 

1470 IS=IÏKEY$:IFSTRIG(1)THEN1550ELSEIFSTR 
IG(3)THENCLS:GOTO1390 


1480 IFI$=””THEN1470ELSEIFI$=CHR$(1)THENGR 
=1:GOTO1530ELSEIFI$=CHR$(13)THEN1550 
1490 IFI$=CHR$(8)THENIFAT> 0THENL INE(10+(AT 
-1)*XV*8,80)-(9+(AT+1)*XV*8, 79+YV*8), 0, BF: 
AT=AT-1: GR=0 :GOSUB1540:GOTO1530 


1D00 1F1$<CHR$(32)THEN1530 

1510 IFGRTHENGR=0: IFI$>CHR$ (63) ANDI$<CHRS> ( 

96)THENI$=CHR$(ASC(I$)-64) 

1520 IFLE>ATTHENLINE(10+AT*XV*8,80)-(9+(AT 
+1)*XV*8,79+YV*8),0,BF:PSET(10+AT*XV*8,80) 

,0:C0L0R7:P0KE&HDBA7,ASC(I$):DUMY=USR(&HDB 
30):AT=AT+1;GOSUB1540 


1530 GOTO1470 

1540 LINE(10+AT*XV*8,80)- (9+ (AT+1)*XV*8. 79 
+YV*8),1,BF: RETURN 

1550 LINE(10+AT*XV*8,80)-(9+(AT+l)*XV*8,79 
+YV*8),0,BF: SETPAGE0, 2: LINE(0, 80)-(255,143 
),7,BF,XOR:LINE(0,144)-(255,207),VKX0R7,BF 
: COPY(0,80)-(255, 143),2TO(0,144),2,TPSET:L 
INE(0,144)-(255,207),7,BF,XOR: SETPAGB0 ,0:X 
=10:Y=10:GQSUB1600 


1560 IFSTRIG(1)THEN1610ELSEIFSTRIG(3)THENG 
OSUB1600:RETURN 

1570 LX=X:LY=Y:DUMY=PAD(12):X=X+PAD(13):Y= 
Y+PADQ4): IFX<0THENX=0ELSEIFX>255-AT*XV*8T 
HENX=255-AT*XV*8 


1580 IFY<0THENY=0ELSEIFY>211-YV*8THENY=211 
-YV*8 


1590 IFX=LXANDY=LYTHEN1560ELSECOPY(10,144) 
-(10+AT*XV*8,143+YV*8),2T0(LX,LY),0,XOR:GO 
SUB1600:GOTO1560 


1600 COPY(10,144)-(10+AT*XV*8,143+YV^8),2T 
O (X,Y),0, XOR:RETURN 

1610 GOSUB1600:COPY(10,144)-(10+AT*XV*8.14 
3+YV*8), 2T0(X, Y),0, TPSET:FORI = 1TO250:NEXT: 
RETURN 

1620 IFVPEEK(&HF116)=&H8CTHENLD=2: VPOKE&HF 
116,&H90:PUTSPRITE5, (136,15),,36ELSELD=1:V 
P0KE&HF116,&H8C:PUTSPRITE5,(136,15),,35 
1630 RETURN 


1640 MP=3:GOSUB2120: IFSTRIG(3)THENRETURNEL 
SEX1=X(1):Y1=Y(1):X2=X(2):Y2=Y(2):GOSUB110 
0:X1=X(2):Y1=Y(2):X2=X(3):Y2=Y(3):GOSUB110 
0:X1=X(3):Y1=Y(3):X2=X(1):Y2=Y(1): GOSUB110 
0:RETURN 


1650 MP=3:G0SUB2120:IFSTRIG(3)THENRETURNEL 
SEGOSUB1820:LINE(X(1),Y(1))-(X(2),Y(2)),0: 
LINE(X(2), Y(2))-(X(3), Y(3)),0:LINE(X(3),Y( 
3))-(X(l),Y(l)),0:PAINT(0,0),0,0:COPY(0,0) 
- (255,211)TO(0,0),0,TPSET:SETP AGE0 ,0:RETUR 
N 


1660 GOSUB2220:IFS=1THENVK=P0INT(X, Y): VPOK 
E&HF384, (255+INT((VK-1)/3)^16)AND255: VPOKE 
&HF385,152+((VK-1)M0D3)*16:RETURNELSERETUR 
N 


1670 XP=XP-9: IFYP06THENPUTSPRITE1, (VPEEKC 
&H7601) , VPEEK (8rH7600) ) , VPEEK (&H7400) : VPOKE 
&HF384,VPEEK(&H7600):VP0KE&HF385,VPEEK(&H7 
601):VK=(YP-1)*3+XP:COLORVK: RETURN 
1680 RGB=VPEEK(&H7680+VK^2)/16AND7:BRG=VPE 
EK(4H7680+VKC2)AND7:GBR=VPEEK(&H7681+VK^2) 
AND7:IFXP=1THENRGB=(RGB+1)AND7ELSEIFXP=2TH 
ENGBR=(GBR+1)AND7ELSEBRG=(BRG+1)AND7 
1690 COLOR=(VK,RGB,GBR,BRG):RETURN 
1700 COLOR=NEW:RETURN 

1710 FORI=1TO180: NEXT: IFSTRIG(DTHENPOKB&H 
DD9E, VK: DUMY=USR(&HDD80):DUMY=USR(&HDB09): 
GOSUB230:FORI=1TO500:NEXT:RETURN 
1720 XP=XP-12:VPOKE&H7607,0:PUTSPRITE1,(VP 
EEK(&H7601),VPEEK(&H7600)):VPOKE&HF604,VPE 
EK(&H7600):VPOKE&HF605,VPEEK(&H7601):SP=(Y 
P-1)*3+XP:RETURN 





1730 FORI = 1TO180: NEXT: IFSTRIG(3)THENP0KE&H 
DD9F, VK: DUMY= USR(&HDD8F): DUMY=USR(&HDB09): 
GOSUB230:FORI=1TO500:NEXT:RETURNELSECOPY(9 
3, 71)-(162,141)TO(93,71),2: LINE(95, 73)- (16 
139), 15, BF:LINE(94,72)-(161,140),1, B: LIN 
E(93,71)-(162,141),1,B 

1740 BE=&H7DE0+SP*32: POKE&HDE11, (INKBE/25 
6)):POKE&HDE10,INT(BE-256*PEEK(&HDE11)):PR 
ESET(96,74):C0L0R13: DUMY=USR (&HDDA0 ): X=0:Y 
=0: XB=0:YB=0: LINE(96,74)-STEP(3,3),7,B,XOR 
1750 IFSTRIG(3)THEN1810 

1760 LX=XB: LY=YB:DUMY=PAD(12): X=X+PAD(13): 
Y=Y+PAD(14):IFX<0THENX=255ELSEIFX>255THENX 
=0 

1770 IFY<0THENY=255ELSEIFY>255THENY=0 
1780 XB=X/16:YB=Y/16: IFLX<>XBORLY<>YBTHENL 
INE(96+LX*4,74+LY*4)-STEP(3,3),7,B,XOR;LIN 
E(96+XB*4,74+YB*4)-STEP(3,3),7,B,XOR 
1790 IFSTRIG(1)THENLINE(96+XB*4,74+YB*4)-S 
TEP(3,3),2,BF,XOR:VP=SP*32+YB+16*(-(XB>7)) 
+&H7DE0:FORI=1TO50:NEXT:IFPOINT(96+XB*4,74 
+YB*4) = 10THENVPOKEVP, VPEEK(VP)0R(2'' ( (15-XB 
)MOD8))ELSEVPOKEVP,VPEEK(VP)AND(255-(2'((1 
5-XB)M0D8))) 

1800 GOTO1750 

1810 COPY(93,71)-(162, 141),2TO(93,71):FORI 
=1TO250:NEXT:RETURN 

1820 BE=&H7DE0+SP*32:POKE&HDC0D,INT(BE/256 
): POKE&HDC0C, INT(BE-256*PEEK(&HDC0D)):POKE 
&HDC0A, VPEEK(&HF500+SP*16):POKE&HDC0B, VPEE 
K(&HF410+SP*16) 

1830 VDP(9)=10:SS=SPRITE$(47+SP): SETPAGE0 
2: LINE(0, 0)-(255,211), 15,BF:SPRITES(47+SP) 
=S$:DUMY=USR(&HDBAA) 

1840 X=16:Y=16:FORI=1T08:IFIM0D2=1THENC0PY 
(0,0)-(X-l,Y-1)T0(X,0):X=X*2ELSEIFY<211THE 
NCOPY(0,0)-(X-l, Y-1)TO(0, Y): Y=Y*2 
1850 NEXT:FORI=1T04:IFX(I)=0THENX(I)=1ELSE 
IFX(I)=255THENX(I)=254 

1860 IFY(I) =0THENY (I)=1ELSEIFY(I)=211THENY 
(I)=210 

1870 NEXT:RETURN 
1880 P=l:GOSUB720 

1890 IFSTRIG(1)THEN1930ELSEIFSTRIG(3)THEN1 
900ELSEPUTSPRITE0,(X(P>-3,Y(P)-4),(VPEEK(& 
H7400)+l)AND15,0:GOTO1890 
1900 FORI=1TO250:NEXT:GOSUB720:IFX(1)>X(2) 
THENSWAPX(1),X(2) 

1910 IFY(1)>Y(2)THENSWAPY(1), Y(2> 

1920 COLORSPRITE(0)=0: RETURN 
1930 FORI=1TO250:NEXT:IFSTRIG(l)THENCOLORS 
PRITE(0)=0:GOTO1950ELSEP=P+1:IFP> 2THENP=1 
1940 GOTO1890 

1950 GOSUB720:DUKY=PAD(12):X(P)=X(P)+PAD(1 
3): Y(P)=Y(P) +PAD(14): IFX(PX0THENX(P)=0ELS 
EIFX(P)>255THENX(P)=255 

1960 IFY(P) <0THENY (P) =0ELSEIFY (P)>211THENY 
(P)=211 

1970 GOSUB720:IFSTRIG(1)THEN1950ELSECOLORS 
PRITE(0)=0: GOTO1890 
1980 X(3)=X(1)+2:Y(3)=Y(1)+2 
1990 LINE(X(3),Y(3))-STEP((X(2)-X(1))*XV/2 
,(Y(2)-Y(1))*YV/2),1,B,XOR 

2000 IFSTRIG(1)THEN2090ELSEIFSTRIG(3)THEN2 
010ELSE2000 
2010 FORI=1TO250:NEXT 

2020 LINE(X(3),Y(3))-STEP((X(2)-X(1))*XV/2 
,(Y(2)-Y(1))*YV/2),1,B,X0R 
2030 GOSUB720 

2040 IF(X(2)-X(1))*XV/2+X(3)>255THENIFYP<> 
2THENX(2)=X(1)+(255-X(3))*2/XVELSEX(1)=X(2 
)-(255-X(3))*2/XV 

2050 IF(Y(2)-Y(l))*YV/2+Y(3)>211THENIFYP<> 
1THENY<2)=Y(1)+(211-Y(3))*2/YVELSEY(1)=Y(2 
)-(211-Y(3))*2/YV 


2060 IFX(3)< 0THEN IFYP< >2THENX(1)=X(1)-X(3) 
*2/XV: X (3) =0ELSEX (2) =X (2) +X (3) ïÈAvïx (3) =0 
2070 IFY(3)<0THENIFYPO1THENY(1)=Y(1)-Y(3) 
*2/YV:Y(3)=0ELSEY(2)=Y(2)+Y(3)*2/YV:Y(3)=0 
2080 RETURN 

2090 LINE(X(3),Y(3))-STEP((X(2)-X(1))*XV/2 
, Y(2)-Y(l))*YV/2) , 1, B, XOR: DUMY=PAD(12>: X( 
3)-X(3)+PAD(13):Y(3)=Y(3)+PAD(14): IFX(3)>2 
55THENX(3)=255ELSEIFX(3)<-255THENX(3)=-255 
!U <3 > > ? 1:1THENY (3:): = 211ELS E i: P? (3) <-211 

THENY(3)=-211 

2110 LINE(X(3),Y(3))-STEP((X(2>-X<1> > *XV/2 

09»É!sË20W >m/2> ' B ' X0R: IFSTRIGa,IHE1 ' 2 

2120 P=l:GOSUB2200 

2130 IFSTRIG(1)THEN2150ELSEIFSTRIG(3) =0THB 
NPUTSPRITE0, (X(P)-3,Y(P)-4),(VPEEK(&H7400) 
+1)AND15,0:GOTO2130 

2140 FORI=1TO250:NEXT:GOSUB2200:COLORSPRIT 
E(0)=0;RETURN 
2150 FORI=1TO250:NEXT:IFSTRIG(l)THENCOLORS 
PRITE(0)=0:G0T02170ELSEP=P+1:IFP>MPTHENP=1 
2160 GOTO2130 

2170 GOSUB2200: DUMY=PAD(12 >:X(P)=X(P)+PAD( 
13):Y(P)-Y(P)+PAD(14):IFX(P)>255THENX(P)=2 
55ELSEIFX(P) <0THENX (P)=0 

2180 IFY(P)>211THENY(P)=211ELSEIFY(P) <0THE 
WY(P)=0 

2190 GOSUB2200: IFSTRIG(1)THENFORI=1TO20-GO 

TO2170ELSECOLORSPRITE(0)=0:GOTO2130 

2200 LINE(X(1),Y(1))-(X(2),Y(2)),1,,XOR: LI 

^ t < ^ 2) * Y(2))-(X<:3 >.Y(3)),l, , XOR: IFMP=3THE 

!H?!, a<3>|ï<3)) ' (X(1) ’ Y (1)> , 1, , XORELSELIN 

y ï!f ’im ) v (X<4) ' Y<4)} - 1 ” X0R; LI»E ( Ï(4), 
Y(4))-(X(1),Y(D), 1, , XOR 

2210 RETURN 

2220 X=128:Y=106:FORI=1TO250:NEXT:G0SUB226 
0 

2230 IFSTRIG(1)THENS=1:GOSUB2260:RETURNELS 
EIFSTRIG(3)THENS=3:GOSUB2260:RETURNELSELY= 
Y:LX-X:DUMY=PAD(12):X=X+PAD(13):Y=Y+PAD(14 
):IFX<0THENX=0ELSEIFX>255THENX=255 
2240 IFY<0THENY=0ELSEIFY>211THENY=211 
2250 IFY=LYANDX=LXTHEN2230ELSELINE(LX-2 LY 
2)-STEP(4,4),1,B, XOR: GOSUB2260: GOTO2230 
2260 LINE(X-2,Y-2)-STEP(4,4),1,B,XOR:RETUR 

2270 PSET(X,Y),POINT(X,Y):PRINT#1, I$:DUMY= 
USR(&H156) 

2280 X=X+8^LEN(I$):IN$=’”’: AT=0: GOTO2350 

2290 I$=INKEY$:IFSTRIG(1)THEN2370 

2300 IFSTRIG(3)THENIN$=””: RETURN 

2310 IFI$=*'» THEN2290ELSEIFI $=CHR$ (13) THEN2 

2320 IFI$=CHR$(8)THENIFAT>0THENAT=AT-1:INS 

-LEFT$(IN$,LEN(INS)—1):GOTO2350 

2330 IFAT<LEANDINSTR("ABCDEFGHIJ KLMNOPQRST 

UVWXYZabcdefghijklmnopqrstuvwxyz0123456789 

” , I$)THENIN$=IN$+I$:AT=AT+1:GOTO2350 
2340 GOTQ2290 

2350 PRESET (X,Y), POINT (X, Y): PRINT#1, IM+CH 
R$(219)+SPACES(LE-LEN(IN$)) 

2360 GOTO2290 

2370 PRESET(X, Y), POINT(X,Y):PRINT#1, INS+SP 
ACES(LE-LEN(INS)+1):RETURN 
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39 

Regel : 

2236 

- 

1 64 

Regel: 

2240 

- 

171 

Regel : 

2250 

- 

222 

Regel: 

2268 

- 

244 

Regel: 

2270 

- 

201 

Regel: 

2280 

- 

234 

Regel: 

2298 

- 

69 

Regel: 

2300 

- 

34 

Regel; 

2310 

- 

4 

Regel: 

2320 

- 

27 


Regel: 2330 - 176 
Regel; 2340 - 145 
Regel; 2350 - 218 
Regel: 2360 - 145 
Regel; 2370 - 228 
Totaal: 29808 


24 


10 REM M0USE5 DATA 
20 REM Door: 

30 REM Martin van der Graaff 
40 REM (c)1988 MSX-Gids Lelystad 
50 REM 
60 REM 
70 REM 

80 REM Initialisatie 

90 CLEAR200, &HDB00 :COLOR15,1,1: SCREEN7:SET 
PAGE0, 1:CLS:SETPAGE1,1:OPEN"GRP:”AS1: VDP(9 
>=10 
100 REM 

110 REM data inlezen 

120 PRESET(0,0):PRIHT#1,"Data wordt ingele 

zen.” : SETPAGE1,0 

130 REM 

140 DATA 2A,F8,F7,22,07,DB,03,00,00,21,80, 
E7, 11,80, 02,3A, 2F, DB, B7,28, 04,47,19, 10, FD, 
11,80, D8,01,80,02, CD, 59, 00,21,80, D8, 11,00, 
74,01,80,02,CD,5C,00,C9,00,2A, 2A, F9, 22, A8, 

DB, 21, BF, 1B, 11,08,00,3A, A7, DB, B7 

150 DATA 28,04, 47, 19,10, FD, 06,08, C5,01,80, 
08,E5,7E,Al,B9,CC,7D,DB,CB,39,2A,2A,F9,3A, 
A5,DB,5F,16,00,19,22,2A,F9,El, 10,E7,E5,2A, 
2C,F9,3A,A6,DB,5F, 19,22,2C,F9,2A,A8, DB,22, 
2A,F9,El,23,Cl,10,CC,C9,C5,2A,2A 
160 DATA F9,E5,C1,3A,A5,DB,3D,5F,19,22,B3, 
FC,2A,2C,F9,E5,3A,A6,DB,3D,5F,16,00,19,Dl, 

22, B5,FC,DD,21,CD,00,CD,5F,01,Cl, C9,00,00, 
00,00,00,21,00,00,22,2A,F9,22,2C,F9,2A,0C, 

DC, 06,02, C5,06,10, C5, 01,80,08, CD 

170 DATA 74,01,Al,B9,28,05,3A,0A,DC,18,03, 
3A,0B,DC,32,F2,F3,DD,21,9D,00,CD,5F,01,E5, 
CD,85,DC,El,CB,39,10,DE,23,E5,2A,2A, F9,11, 
F8,FF,19,22,2A,F9,CD,8D,DC,El,Cl,10,C7,E5, 
21,00,00,22,2C,F9,2A,2A,F9,11,08 
180 DATA 00,19,22,2A,F9,El,Cl,10,AF,C9,00, 
00,00,00,21,00,00,22,65,DD,CD,2F,DC,3E,0C, 
CD, A5, 00,78, FE, FF, C8,21,80,00,22,65, DD, CD, 
2F,DC,3E,0C,CD,A5,00,C9,21,01,00,22,2C,F9, 
06,6A,C5,3E,0A,CD,A5,00,3A,67,DD 
190 DATA 47,C5, CD, 76,DC,2A,65,DD,22, 2A,F9, 
06,80,C5,CD,9D,DC,CD,85,DC,Cl,10,F6,3E,03, 
CD,D8,00,FE,FF,CA,6E,DC,Cl,10,DD,CD,8D,DC, 
CD,8D,DC,Cl,10,CA,C9,Cl,Cl,CD,C0,00, 06,FF, 
C9,21,51,DD,3A,68, DD, 47,7E, CD, A5 
200 DATA 00,23,10, F9,C9,2A,2A,F9,23,22,2A, 
F9,C9,2A,2C,F9,23,22,2C,F9,C9,2A,2C, F9, 2B, 
22,2C,F9,C9,21,80, 76,11,00,00,01,00,00,DD, 
21, 95,00,CD,5F,01,5F,19,19,22,61,DD,CD,95, 

DC, 21,80,76,CD,5F,01,5F,19,19,22 

210 DATA 63, DD, 2A, 61, DD,CD,74, 01,CB, 3F,CB, 
3F,CB, 3F,CB, 3F,21,49,DD,5F,19,7E,4F,CB,21, 
CB,21,CB,21,2A, 63, DD,CD,74,01,CB,3F,CB,3F, 
CB,3F,CB,3F,21,49,DD,5F,19,79,B6,CD,A5,00, 
2A,61,DD,CD,74,01,B6,0F,21,49,DD 
220 DATA 5F,19,7E,4F,CB,21,CB,21,CB,21,2A, 
63,DD,CD,74,01,E6,0F,21,49,DD,5F,19,79,B6, 

CD, A5,00,2A,61,DD, 23,CD,74,01,B6,«f,21,49, 

DD, 5F, 19, 7E, 4F, CB, 21, CB,21,CB,21,2A,63,DD, 

23, CD,74,01,E6,0F,21,49,DD,5F,19 

230 DATA 79, B6, CD, A5,00, CD, 8D, DC, C9, 07, 06, 
05,03,04,02,01,00,0D,1B,47,31,32,30,30,37, 
36,38,00,00,00,00,00,00,00,00,00,00,00,00, 
01,0A, CD, A8, 00,32, F8, F7,3E, 00,32, F9, F7, C9, 
2A,7E,DD,77,23, 22, 7E, DD,C9, 00,00 
240 DATA 21,20,F4,3A,9E,DD,06,F0,CD,77,01, 
23,10,FA,C9,21,10,F5,3A,9F,DD,06, F0, CD, 77, 
01,23, 10, FA, C9, 00, 00,2A, 10, DE, 06, 02, C5,06, 
10,C5,01,80,08,E5,CD,74,01,Al,B9,CC, F0, DD, 
2A, 2A,F9,11,04,00,19,22,2A, F9, El 
250 DATA CB,39,10,E8,E5,2A,2C,F9,23,23,23, 
23,22,2C,F9,2A,2A,F9,11,E0,FF,19,22,2A,F9, 
El, 23,Cl, 10,CA, E5, 21,80,00,22,2A,F9,21,4A, 
00,22,2C, F9, El, Cl, 10, B6, C9, C5, 2A, 2A, F9, E5, 
Cl, 23,23, 23, 22, B3, FC, 2A, 2C, F9, E5 





280 DATA ??’ 33 ’ 23 ’ °1,22,B5, FC, DD, 21, CD, 00, 
CD,5F,01,Cl,C9,00,00,06,10,C5,06,10,CD 74 
10 <P 8 » 0 1.20,00,09,C1, 10 ,Ee|3e! 
oi ’ aa’ F8, F ^’ DD, 21,3D, 01, CD, 5F, 01, 11,80, D8 
21,00,00,06,10,C5,06,10,IA,CD,77 

rr 0 ?£ A J£ ?i’i 3 * 23 ' 1®» F 8 . ® 1 .• F0, 00, 09 Cl, 10 , 

280 REM ’ ’ ’ FA,CD ’ 5F,01,C9 

290 RESTORE140: CG=0 
300 FORI=0TO852 

210 READHS:CG=CG+VAL(”&H”+H$):POKE&HDB00+ 
1,VAL(”&H”+H$) 

320 NEXTI 

330 IFCG<>90709! THENSCREEN0: PRIKT”Fout in 
rege1 120-330. ” : BEEP: END 
340 REM 

350 DATA FF,80,9F,A0,BF,BE,BD,BB,B7, BB. BD 
BF ’ ? F ’ 80, FF ' FF * P9» ®5, FD, FD, 7D, BD, 01,’ 
7F, 41,4F, 41,79, 41, FF, FF, 80, B6, B6, B6, B7 B8 
BF,A0,AF,AF,AF,AF,AF,80,FF,FF,01 51 59 5D 
»D,3D,FD,e.5,F5:F5;F5:F5,F5;«ï;iF ' 

! 0 ’ 00 ’ 00 ’ 1F * 10 ' 11 • 10 > U > 1A > «1, ®0, 

00,00, 0 0, 00 ,00,00,00,00,80,80,00,80,40,20, 

«A ’ qÜ’ rtf’ 00 ’ 00 ’ 00 ’ FF ’ 80 ’ 8F > 88 » 8B > 8A , 8B » 
8A,8A,98,AF,A0,A0,9F,80,FF,FF,01,F1 11,91 
91,91,11,11,19,F5, 05, 05,F9,01, FF 
?£ 0 .£ ATA FF ’ 80 » 8F .Ö8,8B,8A,8B, 8B,8B, 98,AF, 
?a’c£’ 9F,80,FF,FF ’ 01 ’ F1 ’ 11» Dl, Dl, Dl, 11,11, 

93 ’ AA ’ 93 ’ AA « 95, AA » 95» 80,FF,FF,01,A9,55,A9, 

55,A9,55,01,7F,41,4F,41,79,41,FF 

o^ 0 o£ ATA FF ' 80 • 80 » 80 » 80 .81,83,87,81,81,81, 
80,80,80, 8 0, FF , FF ,0i ( 0i ( 0 i )0 i ( 8i ci,El,81, 

ft?’ SJ’ !J*!} •Uil’ FF ’ FF ’ 80 ’ 80 ’ 80 ’ 80 * 81,83, 

aT’aT* 83, 8!’80» 8 ®, 80 ,80, FF , FF ,01,®i 0i 0i 

01,01,El,El,01,01,01,01,0i,0i pp 

390 DATA FF ’ 80 > 80 - 80 » 80 » 81,81,81,87, 83,81, 

r?’2?’2?’2?’ FF ’ FF ’ 01,01 ’ 01 ’ 01 ’ 81 ’ 81 > 81 » E1 * 
Cl, 81,01,01,01,01, pp,pp,80,80,80,80,80,80 

87,87, 80, 80,80,80,80,80,FF, FF, 01,01,01,01, 

81,Cl,El,El,Cl,81,01,01,01,01 FF 

400 DATA FF,80,BF,Al,Al,Al,Al,BF,80,A0,A0, 

^’^’£ 7,80,FF,FF,01,6D,05 ' 01 ' 0 5. 0 5,01,05, 
® 3 ' 03 > 01 > 03 ’ 6D,01,FF,FF,80,BF,A0, A0, A0, A0 

£f’££’^ ,A0,80,A0)B7 ’ 80 ' FF ' FF » 01 » F D, 0 5,05, 
05,05,FD,01,05,05,01,05,6D,01, FF 

410 A DATA PF,80,BF,Al,Al,Al,Al,Al,Al,Al,Al, 
Al,Al,BF,80,FF,FF,01,6D,05,01,05, 05, 05, 01, 
dE’ 01 ’ 03 ’®D> 01 » FF > FF » 8®,BB,Al,81, A0, Al, 
B7,80,A0,A0,A0,A0, BF, 80,FF, FF, 01,7D, 05,05, 
05,05, 05,05, 05,05, 05,05, FD, 01, FF 

f£®.£ A I£ FF ’ 80 ’ B7 > A0 > 80 » A0 , A0, B6, 80, A0, A0, 
A0, A0, BF, 80,FF,FF,01,6D,05,05,01,05, ED, 01, 

03 ’ o?’ FD ’ 91 ’ FF ’ FF ’ 80 > B7 ’ Al, 80 > Al. Al 

A0,81,Ai,Ai,SC,Ai,BB,80,FF,FF,01,7D,05,05, 

05,05,05,05,05,05,05,05,7D,01,FF 
430 DATA FF, 80, BF, A0, A0, A0, A0, A0, A0, BF, 84, 
80 > 84 » 88 » 80 »PP»PP. 01 ,Ei,21,21,21,2D,25,21 
E5,05,01,05, ED, 01, FF, FF, 80, BF, A®, A0, A0, A®, 
A0.A0.A0.A0.A0L A0L RF R(h PT? PP T?n ac nc 


470 DATA FF,80,A0,90,A9,94 A9 93 A3 ft? ft? 

81 1 ’ftl 1 ’ftv’ftQ’Qi’££’ FF,FF,80 ’ 80 ’ 80 ' 80 > 80 » 80 » 
71 ’ El ’ cl ' S?’ l \’ 9 ?’ 9 ?’ 80 ’ PP» PP. 0 1. 0 D, 1D, 39, 
71,El,Cl,81,01,01,01,01,01 01 FF 

ff 0 o£ A I£ FF ’ 80,80 ’ 81 > 82 ,84,88,90,88,84,82, 
80,FF ’ FF ’ 01 ’ 01 ' 01 * 81 , 41 »21, 11,09 
an’flo’ tl’ Qo’o 1,01 ' FF ’PP’ 80 * 80 > 81 »83,87,8F, 
9F * 8F ’ 87 ' 83 > 81 » 80 » 80 1 8 ®,PP,PF,01, 0 1> 0 l,81, 
F1 > F9 > PI. El, Cl, 81,01,01, FF 
S 0 «£ A !£ PP' 80 - 80 > 80 . 81 - Ö2,84,88,90, 98,87, 

80,80,80,80,FF,FF,01,01,81,41,41,21 21 11 
11,09, E9,19,01,01, FF, FF, 8®; 80; 80; 81! 83 87 

8 f ’ £ 7, 80, 80 ' 80 ' 80 . PP. PP. 0 1, 0 1,81 Cl,’ 

^ B iif. 1, f 1 ' F1 ’ F9 ’ F9 ’ 19) 01 . 0 i. pp 

££ 0 J? ATA PP* 80 » 80 .9F, 90,90, 90,90,90,90, 90 
90 '£ F ’ 80 ' 80 ’ F F’ FF ’ 0 1’ 0 !> P9. 0 9,09,09,09, 09 ’ 
qf' qr' Sb’ £ 0 ’ 01 * PP* PP» 80 > 80,9F, 9F, 9F, 9F.’ 

9F,9F,9F,9F,9F,9F,80,80,FF,FF,01,01 F9 FQ 
W,F9,F9,F9,F9,F9:F9,F9,«1,»1,FF ’ ,F9 ' 

ft J 0 ft£ A J£ ?P' 80 * 80 * 83 » 84 .88,90,90,90, 90,88, 
84 ’??’ 80 ’ 80 ’ FF ’PP ’ 01 * 0 1> Cl,21,11,09, 09,09 
09 * li' 21» Cl, 01,01, FF, FF, 80, 80, 83, 87, 8 F, öf' 
9F,9 F ,9F,8F,87,83, 80,80,FF, FF, 01 , 01 , Cl, El' 

F1, F9, F9, F9, F9, Fl, El, Cl, 01,01, FF 

S 0 a £ A I£ 00 * 00 - 00 * 00 , 0F » 0 E, 0 F, 0 B, 01,00, 00, 

00 ’ VL'VL ' 00 ’ 00 ’ 00 ’ 00 » 00 , 00 ,00,00,00,80,C0, 

? 0, la’ ? 0 ’ 00 > 00 ' 00 ' PP* 80 . 80 > 80 . 80, BF, 80, 
Rn’ BF ’ BE ’ 80,FF ’ FF * 01 * 01 - 0 1> 0 1» 

FD, 01,01,01,01,01,01,0i,0i ( 0i ( pF 
530 DATA FF,80,80,80,80,BF,BF,80,88,94 A 2 
BE,BE,BE,80,FF,FF,01,01,01,01, FD, FD, 01 * 01 ’ 
0 1,01,01,01,01,01,FF,FF,80,80,BB, AB, A 8 , Bb’ 

83, «n’£n’ BA ’ B0,80 ’ FF ’ FF ' 0 1. 0 1,6D,6D, 
01,6D,6D,01,6D,6D,01,6D,6D,01,FF 

340 DATA FF, 80, 80, BD, A5, A5, A5, BD, A8, A4,80, 
80 > PP* PP* 0 1. 0 1,DD,15,5D,55,DD,01, 
01,01,01,01,01,01,FF,FF,80,80,BB,AA,BA B2 

AA, 82, 83,80, 80,80, 80,80, FF, FF, 01,01 DD 15' 

^DH- 50 - 41 ' 01 ' 01 * 01 * 0 !* 0 !. 0 !.^? ’ 

ft£ 0 «£ A lf F £’ 80 ' 80 * BB » AA,BA,B2,AB,80,80,80, 

80 ’ FF ’ 01 * 0 1> BD » 25,A5,BD,A5,25, 
3D,01,01,01,01,01, FF, FF, FF, FF, FF, FF, FF FF 
FF ’PP’PP’PP.PP.FF,FF,FF,FF, FF, FF, FF, FF FF* 

FF,FF,FF,FF,FF, FF, FF,FF,FF, FF,FF 

560 Dm FF, 80, 8 C, 8 E, 8 D, 8 C, 8 C, 8 C, 81,81,81 

ft?’ft?’Ri 1 ’??’£F’ FF,01,31,71 ’ B1 ’ 31 ' 31 ’ 31 ’ 81 i 

oi’f?’ooi’?}’ 01 ’ FF ’PP* 80 .ÖC,8E,8D, 8C,8C, 
o?’'£ 3 * 87 ' 31 , 81 * 31 * 8 0 ,FF,FF, 0 1,31,7i BI, 
31,31,31,81,Cl,El,81,81,81,01,FF 

oI 0 a £ A H F ?’ 80 ’ 9F ’ A 0 , BF, BB, BD, BE, BE, BD, BB, 
on’ ll’ FF ’ FF ’ 01 » F9 » 0 5, FD, DD, BD, 7D, 7D, 
££’DD'PD» F9, 01, FF,00,00,00,00,00 ( 00 00 

00,00,00,00,00,00,00,00 ,00 (00(00j 00 00 00 
00,00,00,00,00,00,00,00,00,00,00 

£? 0 ft£ A I£ 00, 00, 00, 00 > 00 » 00, 00, 00, 00, 00, 

00,00 ’ 00 ’ 00 ’ 00 ' 00 ' 00 » 00 » 00 » 00 ,00,00 
00,00,00,00,00,00,00, 00 , 00(00)00)00 00 00 

,00,00,00, 00 ? 00^ 00 foto OiOi fcfh OifK n,rk ’ 











62® DATA 22,11,88,44,22,11,88,44,22,11,88, 
44,22,11,88,44,22,11,88,44,22,11,88,44,22, 
11,88,44,22,11,88,44,60,B0,90, 60, 06,09, 0D, 
06,60,D0,90,60,06,09,0B,06,60,90,B0, 60,06, 
0D,09,06,60,B0,90,60,06,09,0D,06 
630 DATA AA, AA, 55, 55, AA, AA, 55,55, AA, AA,55, 
55,AA,AA,55,55,AA,AA,55,55,AA,AA,55,55,AA, 
AA,55,55,AA,AA,55,55,33,CC,33,CC,33,CC,33, 
CC, 33, CC, 33, CC, 33, CC, 33, CC, 33, CC, 33, CC, 33, 
CC, 33, CC, 33, CC, 33, CC, 33, CC, 33, CC 
640 DATA 77,88,88,88,77,88,88,88,77,88,88, 
88,77,88,88,88,77,88,88,88,77,88,88,88,77, 
88,88,88,77,88,88,88,88,CC,EE,FF,88,CC,EE, 
FF, 88, CC, EE, FF, 88, CC, EE, FF, 88, CC, EE, FF, 88, 
CC,EE,FF,88, CC, EE,FF,88,CC,EE, FF 
650 DATA 6C,92,82,82,44,28,10,00,6C,FE,FE, 

FE, 7C,-38,10, 00,6C, FE, FE, FE, 7C, 38, 10.00.6C, ' 
92,82,82,44,28,10,00,F0,F0,F0,F0,0F,0F,0F, 
0F,F0,F0,F0,F0,0F,0F,0F,0F, F0, F0, F0, F0, 0F, 
0F,0F,0F,F0,F0,F0,F0,0F,0F,0F,0F 

660 DATA F0, 96, 96, F0, 0F, 69, 69,0F, F0,96, 96, . 
F0,0F, 69,69,0F, F0,96,96, F0, 0F, 69,69,0F, F0, 
96,96,F0,0F,69,69,0F,FF,80,9F,A0,BF,BE,BD, 
BB, B7, BB, BD, BE, A0, 9F, 80, FF, FF, 01, F9, 05, FD, 
FD,7D,BD,01,7F,4F,4F,4F,4F,41, FF 
670 REM 

680 RESTORE350: CG=0 
690 FQRI=0TO2047 

700 READHS:CG=CG+VAL <”&H"+H$): VPOKE&H7800 
+ 1, VAL<"&H"+H$> 

710 NEXTI 

720 IFCG0241624! THENSCREEN0: PRIFF’Fout in 
rege1 350-720.”:BEEP:END 
730 REM 

740 DATA 82,44,28,00,28,44,82,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,FF,80,80,80,80,80,80, 

80.80.80.80.80.80.80.80, FF,FF,01,01,01,01, 
01,01,01,01,01,01,01,01,01,01,FF 

750 DATA FF, 80, 80, 80, 80, 80, 80, 80, 80,80, 80, 

80.80, FF, 00,00, FC, 04,04,04,04,04,04,04,04, 
04,04, 04,04, FC, 00,00, FF, 80, 80, 80, 80, 80, 80, 

80.80.80.80, FF, 00,00,00, 00, F0, 10, 10, 10, 10, 
10,10,10,10,10,10,F0,00,00,00,00 

760 DATA FF, 80, 80, 80,80, 80,80, 80,80, FF, 00, 
00, 00,00, 00,00,C0,40,40,40,40,40,40,40,40, 
C0,00,00,00,00,00,00,FF,81,81,81,81,81,81, 

FF, 00,00,00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,00,00,00,00,00 

770 DATA FC, 84,84,84,84, FC, 00,00,00, 00, 00, 
00,00, 00,00,00,00,00,00,00,00, 00,00, 00,00, 
00,00,00,00,00,00,00,F0,90,90,F0,00,00,00, 
00,00,00,00,00, 00, 00,00, 00,00,00,00, 00,00, 
00,00,00,00,00,00,00,00,00,00,00 
780 REM 

790 RESTORE740: CG=0 
800 FORI=0TO255 

810 READH$:CG=CG+VAL(”&H"+H$): VPOKE&HF800 
+ 1,VAL("&H”+H$) 

820 NEXTI 

830 IFCG<>13844THENSCREEN0:PRINT”Fout in r 

egel 740-830.”:BBEP; END 

840 FORI=0TO1791 

850 VPOKE&HF900+1,0 

860 NEXTI 

870 REM 

880 DATA FF, 08, FC, 01, FF, 18, 00,01, FF, 28,14, 
01,0F,08,0C,01,0F,18,10,01,0F, 28, 04,01,1F, 
08, A8,01,1F, 18, AC, 01, 1F, 28, B0,01, EE, 00,00, 
00,EE,00,00,00,EB,00,00,00,EE, 00, 00, 00, EE, 
00,00,00,EE,00,00,00,EE,00,00,00 


890 DATA EE, 00, 00,00, EE, 00, 00,00, EE, 00, 00, 
00,EE,00,00,00,EE,00,00,00,EE,00,00,00,EE, 
00,00,00,1F,08,A4,07,1F,18,A4,07,1F,28,A4, 
07, FF, 08, A4,07, FF, 18, A4,07, FF, 28, A4,07,0F, 
08,A4,07,0F,18,A4,07,0F,28,A4,07 
900 DATA FF, 38, IC, 01,FF,48,24,01,FF,58,4C, 
01,0F,38,18,01, 0F, 48,20,01,0F,58,50,01,1F, 
38,28,01,1F,48,2C,01,1F,58,30,01,2F,38,34, 
01,2F,48,38,01,2F,58,3C,01,3F,38,40.01.3F, 
48,44,01,3F,58,48,01,EE,00,00,00 
910 DATA FF,48,A4,03,FF,58,A4,03,0F,38,A4, 
03,0F,48,A4,03,0F,58,A4,03,1F,38,A4,03,1F, 
48, A4,03,1F, 58, A4,03,2F, 38, A4,03, 2F, 48, A4, 
03,2F, 58, A4,03,3F, 38, A4, 03,3F, 48, A4,03,3F, 
58,A4,03,FF,38,A4,03,EE,00,00,00 
920 DATA FF,68,54,01,FF,78,58,01,FF,88,5C, 
01,0F,68, 60,01,0F, 78,64,01,0F, 88,8C,01,1F, 
68,68,01,1F,78,6C,01,1F,88,70,01,2F,68,78, 
01,2F,78,7C,01,2F,88,74,01,3F,68,80,01,3F, 
78,84,01,3F,88,94,01,EE,00, 00, 00 
930 DATA FF, 78, A4,09, FF, 88, A4,09, 0F, 68, A4, 
09,0F, 78, A4,09, 0F, 88, A4,0B, 1F, 68, A4,09, 1F, 
78, A4,09,1F, 88, A4,09,2F, 68, A4, 09, 2F, 78, A4, 
09,2F, 88, A4,09,3F, 68, A4,09, 3F, 78, A4,09,3F, 
88, A4,09, FF, 68, A4,09, EE, 00, 00, 00 
940 DATA EE, 00,00,00,FF,98,08,0F,FF,98,A4, 
01,FF,A8, A4,02, FF,B8,A4,03,0F,98, A4, 04,0F, 
A8,A4,05,0F,B8,A4,06,1F,98,A4,07,1F,A8,A4, 
08,4F,98,98,01,4F,A8,9C,01,4F,B8,A0,01,EE, 
00,00,00,EE,00,00,00,EE,00,00,00 
950 DATA EE, 00,00,00,EE,00,00,00,EE,00,00, 
00, EE, 00,00,00, EE, 00,00, 00, EE, 00,00,00, 1F, 
B8,A4,09,2F,98,A4,0A,2F,A8,A4,0B, 2F, B8, A4, 
0C, 3F,98, A4,0D,3F, A8,A4,0E,3F,B8,A4,0F,4F, 
98,A4,0B,4F,A3,A4,0B,4F,B8, A4,0B 
960 DATA EE,00,00,00,FF,C8,08,0F,FF,C8,C0, 
01, FF,D8, C4,01, FF,B8,C8,01,0F,C8,CC,01,0F, 
D8,D0,01,0F,E8,D4,01,1F,C8,D8,01,1F,D8,DC, 
01,1F,E8,E0,01,2F,C8,E4,01,2F,D8,E8,01,2F, 
E8, EC, 01,3F,C8,F0,01,3F,D8,F4,01 
970 DATA 3F,E8,F8,01,FF,C8,A4,02,FF,D8,A4, 
02,FF,E8,A4,02,0F,C8,A4,02,0F,D8,A4,02,0F, 
E8,A4,02,1F,C8,A4,02,1F,D8,A4,02, 1F,E8, A4, 
02, 2F, C8, A4, 02,2F, D8, A4,02,2F, E8, A4,02,3F, 
C8, A4, 02, 3F, D8, A4, 02, 3F, E8, A4,02 
980 REM 

990 RESTORE880: CG=0 

1000 FORI=0TO639 

1010 READH$:CG=CG+VAL(”&H”+H$) 

1020 NEXTI 

1030 IFCG054274! THENSCREEN0: PRINT”Fout in 
regel 880-1030.BEEP: END 
1040 RESTORE880 
1050 FORI=0TO4 
1060 FORJ=0TO127 

1070 READH$:VPOKE&HEC00+1*640+J, VAL C’ &H” 

+H$> 

1080 NEXTJ 
1090 FORJ=0TO31 
1100 FORK=0TO15 

1110 VPOKE(&HEA00+I*640+J*16+K), VPEEK(& 
HEC03+1*640+J *4) 

1120 NEXTK 

1130 NEXTJ 

1140 NEXTI 

1150 FORI=0TO383 

1160 VPOKE&HF680+I,0 

1170 NEXTI 

1180 REM 

1190 REM files saven 

1200 SETPAGE1,1:PRESET(0,16):PRINT#1,”Er z 
ijn geen datafouten ondekt!" 

1210 PRESET(0,24):PRINT#1,"Doe de programm 
adiskette in de diskdrive en geef een toet 
s_": SETPAGE1,0 
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1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

aven! 

1300 


DEFUSR 342: DUMY-USR(0) ;I$=INPUTS(1> 
BSAVE”MTCODES. M5*’, &HDB00 &HDE54 
BSAVF-SPRITEl. M5” &H7800 &H7FFF q 
BSAVE*'SPRITE2. M5" , &HF800 &HFFFf’ I 
BSAVE»ATRIBUT. M5"; &HEA00.' &HF7FF' S 

SCREEN0 ATROON ' M5 ” ’ &H7E00 ’ &H7FDF.’ S 

PRINT Vergeet niet dit programma te 

END 



MERGE MASTER 

Indien er een diskdrive op uw computer is aanoeslo- 
ten opstarte" met<CTRL>. De Iisting bestaat ït 

Afc^de r iS o me hi. CheC | t5 ! Jm8 en een inpoke-routine. 
Hls üb iisting helemaal is ingetupt, kan deze h p* 

k !! te k - r8t °P ta P e of disk worden gezet. Het inpo- 
ken kan worden gestart met RUN. Er zal na L* 
inpoken een boodschap op het scherm verschiinen 

wordVn S gMet h °B B re h nn t 5™ gramma °P * a P® of diskaan 

boodschap en druk op <KTURN> ^et 6961 mBt dB 
wordt nu gesaved. P N ‘ Het P r °Sramma 

Opstarten van MERGEMASTER: 

™l-.“ TTJS^ASUK^ •— 

PEEK(-1)\l 6 ) X0RS55. 

Het programma kan nu worden opgestart door het te 

arim». JlTu Iaatate ka " all “" als het BASIC- B pro- 
gramma pas daarvoor was opgestart. ^ 

Beschrijving: 

SIC R nrüi ASTER <‘ S Ben P r °9 r «mma, dat meerdere BA- 

ïnr/ 8 aan e ? aar kan k °pp 8,en - msh-basic 

, commando MERGE, maar dat is zeer 

Programma s dim .« CSAVE op tap. ‘Ton 

dat nu” möt°h.tTi en 8 ' m ' rfl,d ' “"8 ““ ™rdael ia’ 
n ,V ” iet . het he e programma moet worden gemer- 

" U ° 0kaen aantal de,a " ^n een pro- 
g mma met een ander programma mergen. U kunt 

bijv. regel 50 t/m 100 en regel 300 t/m 300 van een 
gWorg^™"- b ' J " “ d ' r ™™» a l”v“- 


Het werkt als volgt: 

Na het laden mat BL0AD-MERGE-.R kunt U MERGEMAS- 

JiM ZiT" , met / ESC> ' U kri JS‘ ™ aan manu te 
zien met de volgende mogelijkheden: 

Toets K: Hiermee kunt U programma-regels bewaren. 
Achtereenvolgens zullen begin- en eindregel worden 
gevraagd. Automatisch zullen alle bewaarde regels 
worden getoond. a 

Toets L: Alle regels die momenteel worden bewaard, 
worden getoond. Met CTRL/STOP kunt U onderbreken. 

Toets M: Alle regels die momenteel worden bewaard, 

Ï J dB j ASIC ‘ ,isting ln gevoegd. Het geheugen 
met de bewaarde regels zal niet worden gewist. Dit 
oeteKent dat u het nog eens voor de zekerheid kunt 
herhalen, wat natuurlijk nooit kwaad kan. 

Toets W: Het geheugen met de bewaarde regels wordt 
gewist. Dit heeft geen gevolgen voor uw BASIC- pro¬ 
gramma. Voor machinetaalkundigen: ik heb gebruik 
gemaakt van de H00K "HMAIN" op adres ihFFOC. De 
hoofdlus wordt namelijk gebruikt om de regels in te 
voegen via de H00K "HMAIN" wordt weer terug ge¬ 
sprongen naar de insert- routine van MERGEMASTER, 
die de volgende regel net zo zal invoegen tot aan de 
laatste regel. Voordat naar de hoofdlus wordt ge¬ 
sprongen (*h4173), wordt de in te voegen regel (niet 

SSr g ld?n “ hF “ E ’ 8 “ PlMtSt “ HL »« 

S.Weigel. 


10 REM INTIMI (D7E7) 

%o' qa’ 22 ’ CD ’ FD ’ 3E ’ C3 > 32,C 
B’ pj’r^’21’r^’^ C ’ 09 * FE > 3A,C 0 ,F5,E5,D 
5, C5, CD, 55, DA, Cl, Dl, El, Fl, C9 X QA.7 1 p 
30 REM PARLIW <D806> ’ ’ 4718 

0,0,0,0,0,0,0,0 ( 0 ( 0 } 0 0 0 0 
0,0,0,0,0, 0, 0, 0 ( 0, 0 * 0 ' 
50 REM 64K <D81E) 

60 DATA F5, C5, DB, A 8.47 E 6 F< 7 > ib i ü i 

7« 1 ^??’ A8:C1: “'^' , *®2!936 F ’ 1F ' 1 
70 REM 32K <D82F> 

8 9486 TA F5, DB ’ A8 ’ E6 > F0 « D3 - A 8 , Fl, C9, * 

90 REM GETPC CD838) 

100 DATA El,E9, X ,691 
110 REM DCOMPR <D83A) 

ilS rmtSt 82 ’» 93 ’ 09 '*' 3433 
5?; SS: IS: SS: 2t :IS: 15* §S- 

69,67,65,6C,20,20,20; 20 ! 20 ! ff’ tl' 54 ’ 

M' ir’ IS' I 3 ' 3A ' 2® ■ 4B, 45,' ïs.' él’, IS’,tl ' 

20,4C,49,53,54,20,20,20,4D 45 52 47 ’ 

45,20,20,20,57,49,50,45, X, 192936 * * 

150 DATA 20,20,20,*,192 

160 REM INITL (D890) 

ij® DATA AF,21,06,D8,06,18,77 23 10 

FC,CD,5F, 00 , 21 ,E 9 F 3 3E 0 F 77 23 ’ 3 E’ 
04,77,23,77,CD,62 00 CD 69 00 3 E ’1?’ 

ci;IfilliS’ ’ ' 21 ' 08,01,22> Dc ' F3 > 

180 REM STORE <D 8 CA) 
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190 DATA 2A,0E,D8,22,18,D8,22,10,D8, 
ED,5B,08,D8,CD,95,42,38,09,20,07,2A, 
18,D8,22,0E,D8,C9,ED,43,14,D8,0A,6F, 
03,0A,67,22,16,D8,03,0A,6F,03,0A,67, 
22,0C,D8,ED,5B,0A,D8,EB,E7,38,DC,F3, 
CD,IE,D8,2A,16,D8,ED,5B,14,D8,A7,ED, 
52,EB,2A,0E,D8,19,22,10,D8,EB,*,3692 
75 

200 DATA 2A,IA,D8,CD,3A,D8,30,0E,CD, 
2F, D8,-2A,18, D8,22,0E, D8, IE, 07, C3, 6F, 
40,ED,5B,10,D8,2A,0E,D8,73,23,72,23, 
ED, 4B,0C, D8,71,23,70,23,ED,4B,14,D8, 
03,03,03,03,0A,77,23,CD,3A,D8,20,F7, 
ED,5B,0C,D8,13,22,0E,D8,CD,2F,D8,C3, 
D7, D8,*,287266 
210 REM KLIST <D960> 

220 DATA 11,00,00,2A,06,D8,E7,C8,F3, 
CD,IE,D8,22,10,D8,EB,5E,23,56,23,ED, 
53,14,D8,4E,23,46,23,ED,43,0C,D8,01, 
1F,F4,7E,02,23,03,CD,3A,D8,20,F7,CD, 
2F,D8,21,1F,F4,CD,84,52,2A,0C,D8,CD, 
16,34,00,00,00,23,CD,78,66,3E,20,DF, 
21,5E,F5,7E,A7,28,04,*,298655 
230 DATA DF,23,18,F8,CD,23,73,CD,BA, 
00,ED,5B,14,D8,C3,63,D9,*,21892 
240 REM INSERT (D9BD> 

250 DATA El,22,IA,D8,2A,0E,D8,ED,5B, 
10,D8,E7,38,08,CD,2F,D8,AF,2A,IA,D8, 
E9,F3,CD,IE,D8,4E,23,46,23,ED,43,12, 
D8,4E,23,46,ED,43,0C,D8,23,01,1F,F4, 
ED,5B,12,D8,7E,02,03,23,CD,3A,D8,20, 
F7,CD,2F,D8,FB,21,1F,F4.CD,84,52,21, 
5E,F5,11,1F,F4,7E,12,*,343080 
260 DATA 23,13,A7,20,F9,*,1947 
270 DATA 2A,0C,D8,CD,16,34,11,5E,F5, 
7E,A7,28,05,12,23,13,18,F7,21,1F,F4, 
7E,12,23,13,A7,20,F9,CD,38,D8,11,12, 
00,19,22,0D,FF,3E,C3,32,0C,FF,21,5D, 
F5,C3,73,41,2A,12,D8,Dl,3E,C9,32,0C, 
FF 

280 DATA C3,C4,D9,*,218408 
290 REM PRTTXT (DA4B) 

300 DATA El,7E,A7,20,01,E9,DF,23,18, 
F7,*,7036 

310 REM MAIN <DA55> 

320 DATA 3A,9A,FC,A7,20,05,CD,90,D8, 
18,04,AF,CD,9A,D8,3E,01,32,9A,FC,FB, 
CD,9F,00,FE,4C,28,04,FE,6C,20,08,CD, 
60,D9,AF,C3,1F,41,00,FE,4D,28,04,FE, 
6D,20,20,2A,06,D8,22,10,D8,26,00,6C, 
22,0E,D8,CD,BD,D9,CD,4B,DA,69,6E,73, 
65,72,74,65,64,0D,0A,00,*,315930 
330 DATA C3,34,41,FE,57,28,04,FE,77, 
20,07,AF,32,9A,FC,C3,1F,41,FE,4B,28, 
04,FE,6B,20,53,CD,4B,DA,46,52,4F,4D, 
20,4C,49,4E,45,00,CD,B4,00,23,CD,5F, 

47,EB,22,08,D8,CD,4B,DA,54,4F,20,4C, 

49,4E,45,00,CD,B4,00,23,*,211120 
340 DATA CD,5F,47,EB,22,0A,D8,ED,5B, 
08,D8,E7,30,05,IE,05,C3,6F,40,2A,06, 
D8,22,0E,D8,21,FF,7F,22,IA,D8,CD,CA, 
D8,2A,10,D8,22,06,D8,FB,C3,75,DA,CD, 
4B,DA,3F,3F,3F,0D,0A,00,C9,*,169080, 
# 

350 RESTORE:DEFINTZ,D:DEFSNGT:Z=8sHD7 
E7 

360 TL=0:DT=1 

370 READZ8:IFZ$<>”#”ANDZ$<>”*"THENPO 
KEZ, VAL <”&H”+Z$ >:TL=TL+VAL<”&H"+ZS)* 
DT:DT=DT+1:Z=Z+1:GOTO370 
380 IFZ$=”#”THEN400ELSE READT:PRINT” 
CHECK: ”T; TABC14) ; ”="TL: IFTLOT THEN 
BEEP:PRINT”DATA error in”;PEEK(&HF6A 
3)+256*PEEK(&HF6A4):END 
390 GOTO360 


400 IFZO&HDB19THENPRINT"data error" 
:BEEP:END 

410 DEFUSR=&HD7E7:CLS:PRINT”BSAVE”CH 
RS(34)”MERGE"CHR$<34)",&HD7E7,&HDB18 
” : END 


CQNTRQLETELLINQ 


R®gel: 10 - 0 

Reg*1: 20 - 2S 

R®g*l: 30 - 0 

R*g*l: 40 - 202 

Regal: 50 - 0 

R»g»1: £0 - 224 

Rsgtl: 70 — 0 

Regol: 80-175 

R • g • 1 : 90 - 0 

R»g»l: 100 — 230 

R*g«l: 110 - 0 

R«g®l: 120 - 138 

Ragal: 130 - 0 

Raga1: 140- 44 

Ragal: 150 - 64 

Ragal: 160 - 0 

Ragal: 170 - 89 

Ragal: 180 - 0 

Ragal: 190-123 

Ragal: 200 - 115 

Ragal: 210 - 0 

Ragal: 220 - 21 

Ragal: 230 - 191 

Ragal: 240 - 0 

Ragal: 250 - 216 

Ragal: 260 - 205 

Ragal: 270 - 22 

Ragal: 260 - 31 

Ragal; 290 - 0 

Ragal: 300 - 2 

Ragal: 310 - 0 

Ragal: 320 - 77 

Ragal: 330 - 1 09 

Ragal; 340 - 137 
Ragal: 350 - 196 

Ragal: 360 - 115 

Ragal: 370 - 180 

Ragal: 380 - 76 

Ragal: 390 - 0 

Ragal: 400 - 11 

Ragal: 410-129 

Totaal: 3146 


MSX-GIDS 

BEWAARBANDEN 

Voor de MSX Gids zijn nu ook opbergmappen 
verkrijgbaar. Deze bewaarbanden zijn - uiter¬ 
aard - geel en hebben het MSX-Gids logo 
(in zwarte opdruk) op de voorzijde en op de rug. 
In deze mappen kunnen minstens 6 exemplaren 
van de Gids opgeborgen worden. De bladen 
worden in de map vastgezet met speciale 
(bijgeleverde) metalen klemmen. Hierbij wordt 
het blad niet beschadigd! De mappen worden 
geleverd in een bijbehorende verzenddoos en 
de prijs van deze bewaarband is ƒ 19,95 per 
stuk. Deze prijs is inclusief BTW en verzend¬ 
kosten. 

De banden zijn te bestellen door overmaking 
van ƒ 19,95 per stuk op Postbanknummer: 
5036011 t.n.v. J. Herps te Lelystad onder ver¬ 
melding van ’bewaarband’. 

Voor België is dit Bfr. 365 op bankrekening 
235-0430464-87 bij de Generale Bank te 
Hasselt t.n.v. J. Herps, Postbus 516, 
8200 AM Lelystad onder vermelding van ’be¬ 
waarband’. 
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SCREEN 1 


HOE HET WEBKT 
EN 

HAT WE ER ALLEMAAL MEE KUNNEN DOEN. 

Hoewel SCREEN 1 ook wel tekstst.nrf a 
genoemd, biedt dit .ch.r.«ftS^"ogeütthïï» 

™ UM."“ r 1"‘ ™ teb.t Bij div " 

n»m* P « e Jl Bt ^ e8 ’ j° a 8 0,a * Peckman, wordt vaak gebruik 

p 

aar eerst nodig ik U uit om met mii een kiikie t« 

Z e d n e a VDpVdeo p" tB trachtBn de 
De VDP hiïrhSf D,aplaö Proceaso ^ te doorgronden 

ajsjsïï MSHi " n ansr.ïi'sj 

? ft 9Bhau |» n °PS e deeld in 2f- 
anh.tiÏ! (tabellen) waarin alle informatie, nodig 
om het beeld samen te stellen, wordt opgeslagen 9 

Bij screen 1 hebben we te maken met 5 tabellen: 

* ab€d: BASB: 

Naamtabel 5 

Patroontabel 7 

Kleurtabel 6 

Sprite attributietabel 8 
Sprite patroontabel 9 


Bloklengte In bytes: 
768 
2048 
32 
128 
2048 

naamtabel 

De naamtabel bestaat bij screen 1 uit 7G8 bgtes en 
5f k i " n WB,k karakter op welke plaats moet komen. 
We kunnen ons deze naamtabel het beste voorstellen 

“Ier"? riten^a?S? rba ïd“ Bt 768 vak J BS ’ verdaeld 

over 24 rilen van 33 vakjes en waarbij dan de posi¬ 
tie on n h«i k h Va u jB corros P ondeB rt met dezelfde posi- 
. . °5 h ®j beeldscherm. Op de bovenste rij bevinden 

63 enz”* d ° Vak ^ BS 8 t/m 31 ’ °P de tweede rij 32 t/m 


1 ®l 1| 2| 

1-1- 1 - 1 - 

T- 1 - 1 - 1 

I 29|30|31| 

132|33|34| 

1—111 - 

1- 1 - 1 - 1 

161|62|63| 


ke-Üf~ 5 J ! k ° mt w U d ? naBm “ t0 8taan van het 
karakter dat we op het beeld zichtbaar wilen maken. 

Deze naam wordt uitgedrukt in de z.g. ASCII-code, 

ace k 0B !ï dus - v Ee " tabel voor da ASCII-code voor de 
B5G karakters kunt U in diverse handboeken vinden. 

“A' moet ' ° P f P08 ï iB 2 j an dB boven8te r egel een 
A moet komen te staan, dan zal bgte 1 (denk erom 

we beginnen bij 0 te tellen!) de ASClI-code voor "? 

öQTTT tBr !i bevatten - Bij de meeste karakters komt 
iVrmSÈS?\° VB Eï n “ et . het karakternummer. Zo 
is CHR$(GÜ) ook gelijk aan “A“. De ALTERNATIEVE ka- 

MÏ?tah B | Z ïï Acrn dB , lac hebekjes, krijgen in de 
b ! d AS £ n -waarden 0 t/m 31 toegekend. Sa¬ 
mengevat nog enkele voorbeelden: B 

Vakje (byte): M|' ij 3 |' 4 |' geeft schermpositie aan 
en bevat :|32|65|66| 1| naam (ASCII-code) van 
de karakters:| | A| B| ©| 

1 1 ■ 1 I 

Daar 32 voor een spatie staat, bevat het eerste vak 

9acn . karakta r- Na een SCREEN- of CLS instructie 
worden alle bgtes van de naamtabel op 32 gezet 

PBl$T e ?n d * US B * B , n s °h°° n beeldscherm oplevert. Bij de 
fndJ bBtrrffï Mor J an dan nad erhand de waarden 
t f j ndB VakJes WBer in overeenstemming 

faïakïï “u d ® naa “ Van bet ter P ,aatse gewenste 
karakter. Wanneer we een WIDTH-instructie hebben 


BK!"’ dlB k ti ner dan 32 > dan «orden aan de 
L i BI ? rechterzijde van elke regel de nodige 

,Mr de mHT “y*» 

?tem d d e Jl! 8trUC i ie: PRINT BASE(5) ku "nen we het eer¬ 
ste adres van de naamtabel te weten komen. 

PATROONTABEL. 

de kara°k°tl^rs bel iS lf 20 ,? 8 bates lan 9 en Beeft aan hoe 
ï,. k 1 fV eruit komen te zien. We kunnen ons 
deze tabel voorstellen als een ladenkast met 256 
laden en met 8 vakjes (bgtes) per lade: 


I 1 I I- 1 - 1 -J— 

|0|1|2|3|4|5|6 
M I I 11 I 


I M MM 

1 I I I I I I 

•—i—i—i—i i i 


—I lade: 
71 0 

—1 


Hierbij bevat elke lade 
het patroon van het ka¬ 
rakter waarvan de ASCII 
code met dat ladenummer 
overeenkomt. 

Zo zal lade 65 dus het 
patroon bevatten van de 
letter ”A’\ 

.'‘PS't.ouwd uit 8x8 beeldelementen 
Ï vclgt ult- ‘ “ tter B Ile ‘ hrt I» 1 ™" «• 


I 255 




byte 0 inhoud 240 = &HF0 <le adres voor 

n 1 M rjr\ _ a TT a r» 


karakter B) 


72 = &H48 
72 = &H48 
112 = 4H70 
72 = &H48 
72 = &H48 
240 = &HF0 
0 = &H00 

Mot do instructie: PRINT BASE(7) vindt U het eerste 
adres van de patroontabel. Wilt U het eerste adres 
weten van b.v. de letter B (ASCII-code 66). dan vindt 
U dat met de instructie: PRINT BASE(7)+ASCCB")«8 

10 ’KARAKTERSET 

SCREEN f egeven adres sen gelden voor 
30 * 

Y 0 GFF REEïr 1:VIDTH 32:C0L0R 15,4,4:KE 
50 CLS 

60 LINEINPUT” Welke karaktercode? <Z 
et er een A achter wanneer het een a 
l*' 01 natief karakter betreft) ” • KS 

V.AL<K$>>255 OR VAL(K$)<32 THEN 
50 

80 A=VAL <K$) 

90 IF RIGHTS<KS,1)=»A"OR RIGHT$(K$,1 
)="a”THEN A=A-64:IF A<0 OR A>31 THEN 
50 

100 KK=A\Ö:PRINT 

110 PRINT" Adres patroon karak 
ter 

120 PRINT 

130 PRINT” DEC. HEX$ BINS 

140 FOR 1=0 TO 7 

150 AS="00000000 "+bINS(VPEEK(BASE(7 ) 
+A*8 +I>> 

160 HS=”0"+HEXS(VPEEK(BASE(7)+A*8+I) 

170 BS=RIGHT$(A$,8) 

180 JS=RIGHTS(HS,2) 

190 PRINT USING”#####";BASE(7>+A*8+I 

200 DS=””:FOR J=1 TO 8 
210 C$=MIDS(BS,J,1) 

220IF C$=”1”THEN CS=CHR$(219)ELSECS 

230 DS=DS+CS:NEXT J 
240 PRINT” ”J$” ”BS” ”D$ 


9Q 
































250 NEXT I: PRINT 
260 PRINT 11 KLEURCODE 
270 PRINT” adres (DEC.):”BASE( 6 )+KK 
COde <DEC ’ > = ”VPEEK(BASE< 

6 >+KK) 

290 PR INT .-GOTO 60 
300 > 

UITDRAAI VOORBEELD 


byte; 


1 Adres 

1 

patroon 

1 DEC. 

HEX$ 

BIN$ 

1 520 

20 

00100000 

* 521 

50 

01010000 

1 522 

88 

10001000 

1 523 

88 

10001000 

1 524 

F 8 

11111000 

’ 525 

88 

10001000 

1 526 

88 

10001000 

1 527 

f 

00 

00000000 

1 KLEURCODE 


* adres 

(DEC. 

): 8200 

* code 

(DEC. 

> : 244 


karakter 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 

In de listlng KARAKTERSET" is een aardig programma 
gegeven, waarmee U naar hartelust kunt grasduinen 
in de patroontabel. Wanneer U hierbij de ASCII-code 
voor het gewenste karakter in voert, krijgt U de vol¬ 
gende informatie op het scherm: 

o s ra-TeïrcSss ' ,p8 “ ia8 "'- 

3) Het patroon van het karakter. 

4) Het adres waar de kleurcode voor dat karakter is 
vastgelegd. 

KLEURTABEL. 

De kleurtabel omvat slechts 32 bgtes en geeft per 
adres de informatie voor de voor- resp. achtergrond- 
kleur van een blok van B opeenvolgende karakters: 

Bgte 0: kar.nrs 0 t/m 7 (le adres van tabel) 

B«te 1: ■ 8 t/m 15 

enz. 


De kleurcode is samengesteld uit: Code voorgrond- 
kleur x 1G + code achtergrondkleur. Bij een wit ka¬ 
rakter (kleur 15) op een blauwe achtergrond (kleur 4) 
is de kleurcode dus: 15x16 ♦ 4 ■ 244 

Het eerste adres van de kleurtabel vinden we met de 
instructie: PRINT BASE(6). Het adres voor de kleur¬ 
code van een bepaald karakter (b.v. de "8") vinden 
we met de instructie: 

PRINT BASE( 4) +ASC( "8“) \B 

In tabel 1 is een overzicht gegeven van alle karak- 
tergroepen met hun ASCII-waarden, alsmede de adres- 
sen waarin da bijbehorende voor- an achtergrond- 
kleuren zijn vastgelegd. Deze tabel kan ons straks 
goede diensten bewezen, als we zelf andere karakters 
in willen poken. We komen daar verder op teruo in de 
paragraaf "TABEL 1". ö 

SPRITE ATTRIBUTIE TABEL. 

De sprite attributie tabel omvat 128 bgtes en is goed 
voor het plaatsen van max. 32 sprites op het scherm. 
We kunnen deze tabel zien als een samenstel van 32 
blokken van 4 bgtes elk. Per blok wordt 1 sprite vol¬ 
ledig gedefinieerd qua vorm, kleur en plaats op het 
beeldscherm: 


I 


SPRITE 0 
(rangnr.)| 


h-r 

I I 


= Y positie (0-255) 3) 
= X positie (0-255) 2) 
- sprite naam. 1 ) 
= kleurnimmer. 2) 


bit 7 


1) Onder "naam" dienen we te verstaan het volgnum¬ 
mer van het spritepatroon. Die naam bepaalt dus hoe 
de sprite er uit komt te zien (0-127 voor kleine 
sprites en 0-31 voor grote sprites); zie ook volgende 
paragraaf. Het rangnummer van de sprite wordt 
bepaald door het het bloknummer in de attributieta- 
bel. (0-31). 

2) Als bit 7 van de kleurbgte 1 is dan komt de K- 
positie van de sprite overeen met de K-pos. bgte min 
32. Dit maakt het mogelijk om de sprite links van 
het scherm te laten verdwijnen. 

3) Met de Y-positie is het wat ingewikkelder. Tussen 

E os.0 en 191 beweegt de sprite zich vertikaal over 
et scherm, met dien verstande, dat bij pos.191 de 
sprite aan de onderkant geheel uit het beeld is ver¬ 
dwenen. Y » 224 t/m 255 komt overeen met de 
schermposities -31 t/m -1. Hiermee is het dus moge¬ 
lijk om de sprites aan de bovenzijde van het scherm 
te laten verdwijnen. Stellen we Y op 209, dan zal de 
sprite geheel van het scherm verdwijnen. Als we Y 
op 208 stellen, heeft dat hetzelfde effect, doch bo¬ 
vendien verdwijnen nu ook alle sprites met een 
hoger rangnummer. 

Het is niet mogelijk om bij screen 1 meer dan 4 spri¬ 
tes op 1 horizontale regel te plaatsen. Proberen we 
er toch een vijfde sprite bij te plaatsen, dan zal de 
sprite met het hoogste rangnummer van het scherm 
verdwijnen, zodat er toch maar 4 sprites overblii- 
ven. 

Het eerste adres van de attributietabel is op te 
vragen met de instructie: PRINT BASE(8). Het eerste 
adres van een bepaalde sprite is op te vragen met: 
PRINT BASE(8)+4Br. Hierin is r dan het rangnummer. 

SPRITE PATROON TABEL. 

De sprite patroontabel beslaat 2048 bgtes en biedt 
daarbij de mogelijkheid om de patronen van 256 klei¬ 
ne sprites (in 256 blokken van 8 bgtes) of 64 grote 
sprites (in 64 blokken van 32 bgtes) vast te leggen. 
De grootte van de sprites volgt uit de SCREEN-in- 
structie: 

SCREEN 1,0* 8x8 sprite. 

SCREEN 1,1" 8x8 sprite, 2 maal vergroot. 

SCREEN 1,2» 16x16 sprite. 

SCREEN 1,3» 16x16 sprite, 2 maal vergroot. 

Voor een "packman van 8x8 pixels ziet zo’n patroon 
er als volgt uit: 


BIK. ; 

DEC. : 

HEX. 

00111100 

60 

3C 

01111110 

126 

7E 

11111000 

248 

F8 

11100000 

224 

E0 

11100000 

224 

E0 

11111000 

248 

F8 

01111110 

126 

7B 

00111100 

60 

3C 


30 








Het sterretje boven het patroon geeft het coördina¬ 
tiepunt (X,Y) aan. Dit is de pixel juist boven het 
linker hoekpunt van het patroonvlak. Daar een pack- 
man veelal in 4 richtingen over het scherm moet 
kunnen bewegen, zijn er 4 verschillende patronen 
nodig, welke allen een kwartslag t.o.v. elkaar zijn 
verdraaid. Het eerste adres van de sprite patroonta- 
bel vinden we met de instructie: PRINT BASEO). Als 
het om Bx8 sprites gaat, vinden we het eerste adres 
van de n-de sprite met: PRINT BASE(9)+8»n. Betreft 
het 16x16 sprites, dan vinden we het eerste adres 
van de n-de sprite met: PRINT BASE(9)+32»n. 

TABEL 1. 

De karakters in deze tabel hebben een ASCII-waarde 
van 0 t/m 255. Deze ASCII-waarde is op te vragen 
met de instructie: PRINT ASC("X“), waarin X dan het 
betreffende karakter is, ingetoetst m.b.v. de letter- 
toets, eventueel in combinatie met SHIFT en/of 
GRAPH- resp. CODE- toets. 

De ASCII-waarde moeten we vooral niet verwarren 
met de KARAKTERCODE (CHRt). Voor de karakters 32 
t/m 255 is de karaktercode gelijk aan de ASCII- 
waarde. We kunnen deze karakters uitprinten met de 
instructie: PRINT CHR$(X), waarin X dan de karakter¬ 
code is. Een hele string met dezelfde karakters 


kunnnen we uitprinten met de instructie: PRINT 
STRINGt(Y,X), waarin de X dan weer staat voor de 
karaktercode en Y voor het aantal karakters. Bij de 
ALTERNATIEVE karakters kan bovengenoemde 
STRINGt- functie niet worden toegepast. De printin- 
structie is hierbij: PRINT CHRS(lTCHR$(K), waarin X 
dan weer de karaktercode is. Echter is nu deze code 
niet gelijk aan de ASCII-waarde, doch loopt zij van 
64 t/m 95 (* ASCII-waarde + 64). 

BESTURINGSFUNCTIES 

Het moeilijke gedoe met de alternatieve karakters is 
een gevolg van het feit, dat de karaktercodes 1 t/m 
31 door het systeem worden gebruikt voor bestu¬ 
ringsfuncties. ïo zal de instructie: PRINT CHR$(11) de 
cursor in de linker bovenhoek plaatsen. 

ENKELE BIJZONDERE CODES. 

ASCII'0: We kunnen ASCIMI zien als een reserve ka¬ 
rakter, dat we zelf naar believen kunnen samenstel- 
len door in de eerste 8 adressen van de patroontabel 
het gewenste patroon in te VPOKEn, b.v.; 

10 SCREEN 1:WIDTH 30 
20 FOR I«0 T0 7 

30 VPOKE BASE(7)+I,VPEEK(BASE(7)+B«65+I) 

40 NEXT 

50 PRINT CHRt(l)CHR$(64) 


1 

TABEL 1 






SCREEN 1 









"1 


B 

L 

0 

K 

l 

1 

1 

1 

1 

\ 

KLEUR 

TABEL 

Adres 

PATROONTABEL Karaktergroep per kleurbyte. 
Gegeven: ASCII-waarde resp,krakterpatroon, 
le adres in patroontabel is ASCII-waarde 2 

: 8, 




0 

1 

1 

8192 

0 


1 

© 

2 

© 

3 


4 

♦ 

5 

* 

6 

* 

7 

« 



1 

1 

8193 

8 

D 

9 

0 

10 

E 

11 

<7 

12 

* 

13 

P 

14 

n 

15 




2 

! 

8194 

16 

t 

17 

-L- 

18 

T 

19 

1 

20 

h 

21 

-h 

22 

1 

23 

— 



3 

1 

8195 

24 

r 

25 

1 

26 

L_ 

27 

J 

28 

X 

29 

/ 

30 

\ 

31 

H- 



4 

! 

8196 

32 


33 

• 

34 

n 

35 

# 

36 

$ 

37 

% 

38 

& 

39 

» 



5 

1 

8197 

40 

< 

41 

) 

42 

* 

43 

+ 

44 

» 

45 

- 

46 

♦ 

47 

/ 



6 

1 

8198 

48 

0 

49 

1 

50 

2 

51 

3 

52 

4 

53 

5 

54 

6 

55 

7 



7 

1 

8199 

56 

8 

57 

9 

58 

; 

59 

1 

60 

< 

61 

= 

62 

> 

63 

'P 



8 

1 

8200 

64 

0 

65 

A 

66 

B 

67 

C 

68 

D 

69 

E 

70 

F 

71 

G 



9 

1 

8201 

72 

H 

73 

I 

74 

J 

75 

K 

76 

L 

77 

M 

78 

N 

79 

0 



10 

1 

8202 

80 

P 

81 

Q 

82 

R 

83 

S 

84 

T 

85 

ü 

86 

V 

87 

V 



11 

1 

8203 

88 

X 

89 

Y 

90 

Z 

91 

[ 

92 

\ 

93 

] 

94 


95 




12 

1 

8204 

96 

'*■ 

97 

a 

98 

b 

99 

c 

100 

d 

101 

e 

102 

f 

103 

S 



13 

1 

8205 

104 

h 

105 

1 

106 

J 

107 

k 

108 

1 

109 

m 

110 

n 

111 

o 



14 

1 

8206 

112 

P 

113 

q 

114 

r 

115 

s 

116 

t 

117 

u 

118 

V 

119 

w 



15 

1 

8207 

120 

X 

121 

y 

122 

z 

123 

{ 

124 

1 

125 

> 

126 


127 

A 



16 

1 

8208 

128 

Q 

129 

ü 

130 

é 

131 

& 

132 

a 

133 

& 

134 

& 

135 

Q 



17 

1 

8209 

136 

ê 

137 

ë 

138 

ë 

139 

ï 

140 

ï 

141 

ï 

142 

A 

143 

A 



18 

1 

8210 

144 

ë 

145 

ee 

146 

& 

147 

6 

148 

ö 

149 

ö 

150 

Ü 

151 

ü 



19 

1 

8211 

152 

y 

153 

ö 

154 

V 

155 

0 

156 

<e 

157 

¥ 

158 

R 

159 

f 



20 

1 

8212 

160 

& 

161 

1 

162 

6 

163 

ü 

164 

ft 

165 

# 

166 

a 

167 

0 



21 

1 

8213 

168 

<L 

169 

<- 

170 


171 

Yt 

172 

K 

173 

i 

174 

« 

175 

» 



22 

1 

8214 

176 

A 

177 

§L 

178 

ï 

179 

ï 

180 

ö 

181 

8 

182 

8 

183 

ü 



23 

1 

8215 

184 

ü 

185 

U 

186 

% 

187 


188 

O 

189 

% 

190 

sr 

191 

§ 



24 

1 

8216 

192 


193 

H 

194 

■ 

195 


196 

■ 

197 

■ 

198 

1 

199 




25 

1 

8217 

200 

1 

201 

1 

202 

■ 

203 


204 


205 

▼ 

206 

▲ 

207 

► 



26 

1 

8218 

208 

i 

209 

X 

210 

H 

211 

■ 

212 

■ 

213 

■ 

214 

■ 

215 

a 



27 

1 

8219 

216 

A 

217 

* 

218 

<JL> 

219 

■ 

220 

m 

221 

1 

222 

1 

223 

m 



28 

1 

8220 

224 

CC 

225 

J3 

226 

r 

227 

TC 

228 

E 

229 

<r 

230 


231 

T 



29 

! 

8221 

232 

£ 

233 

0 

234 

Q 

235 

6 

236 

co 

237 

0 

238 

E 

239 

n 



30 

1 

8222 

240 

= 

241 

+ 

242 

> 

243 

< 

244 

r 

245 

J 

246 

v 

247 

/v 



31 

1 

8223 

1 

248 

0 

249 

■ 

250 

- 

251 

f 

252 

n 

253 

2 

254 

■ 

255 


_1 


31 









rf! 9 fi 5 ? 2 |I de " A " te zien Seven, welke middels 

ïd' 8 ;«r^l”l. 8 ' VP0KM “ P d ' Mr5te 

Vo . ol ~ Ü} karakter staat in de tabel een 

weï eai ri kï«kt e ’ ° mdat de P rinte r aan CHRt(127) 
rninnf 1 .J Ca f kter *° ekant< Dit In tegenstelling tot de 
computer, alwaar dit karakter een besturingsfunctie 
{?,“”£ " 8lk . e vergelijkbaar is met de BackStep func- 
t e (het wissen van een karakter voor de cursor). 

kli-S- UCt !f : PRINT STRING*(5.1E7) zullen vijf 
karakters voor de cursor worden verwijderd, terwijl 

d« Van dB regel °P 8chuift - Tik onderstaan- 

ae instructies maar eens in en zie wat er gebeurt. 

PRINT"AAAA"+CHR$(1E7)+"BBBB" 
en PRINT"AAAA"+STRING$(3,127)+“BBBB" 

fS*i- 55 n- Di f k* curs ° r ' du * ook «en besturings¬ 
functie. De inhoud van de betreffende adressen in 

de patroontabel is afhankelijk van de positie van de 
cursor ofwel het karakter dat wordt bedekt. In de 
adressen van de cursor komt dan het “negatief" van 

vil ïuA kter te , 5t " n - d ‘ w - z - d8t 8 » 8 enen en nulleü 
nnk P‘ aat8 verwisseld zijn. We kunnen zo'n “negatief" 
ook verkrijgen door de inhoud van alle B betreffende 

adr8a5an V m dB 255 af ta tr ®kken. Ondersteund 
programma illustreert een en ander: 

10 SCREEN 1:WIDTH 30 
20 PRINT STRING*(25,255) 

30 PRINTrPRINT STRING$(25,65) 

40 F0R I«0 T0 7 

B0 NEKT E BASEC7)+BG3k8+i * 255 -VPEEKCBASE(7)+65»8+D 

IS S RINT:PRINT STRING$(25,B6) 

B0 PRINT:PRINT“1234567890" 


VPOKE-EHERCITIE MET SPRITES. 

Wanneer we optimaal gebruik willen maken van de 
mogelijkheden van screen 1 zullen we veelvuldig moe¬ 
ten "VPOKEn". Om daar vast in te oefenen raad ik U 
aan om het programma "VPOKE-EKERCITIE MET SPRI¬ 
TES in te tikken. Dit programma stelt U namelijk in 
staat om het resultaat van Uw VPOKE instructie 
direct te aanschouwen, terwijl de in de "direct mode’ 
ingetikte instructie in beeld blijft. Na het runnen 
van Hit programma verschijnen er acht sprites in 
beeld (dit zijn de eerste B alternatieve karakters, 
waarvan het patroon is overgeheveld van de pa¬ 
troontabel naar de sprite-patroontabel) met daaron¬ 
der de vraag: "Welk spritenr?" Als U daar nu het ge¬ 
wenste nummer intikt, verschijnen de 4 adressen uit 
de attributietabel met hun inhoud op het scherm. 
Met de instructie 
" VPOKEt adres],[getal] M 

kunt U nu alle gewenste wijzigingen in positie, naam 
of kleur aanbrengen. Na "RETURN" ziet U dan direct 
het resultaat. De VPOKE-instructie kunt U direct in¬ 
voeren met KEY 1. Wanneer U er niet meer uitkomt, 
omdat U teveel hebt veranderd, druk dan KEY 2 / 
RETURN in. Alle relevante informatie in de VDP wordt 
dan weer hersteld en het oorspronkelijke beeld keert 
terug. 

Om met het manipuleren van de sprites vertrouwd te 
raken, is het aan te bevelen om de in het hoofdstuk 
Sprite-attributietabel" gegeven Informatie te con¬ 
troleren. Verhoog b.v. ook eens de waarde in de 
kleurbgte met 128 (dit komt dan overeen met de "1" 
in bit 7) met de instructie: 

VPOKEt«dras], tKI aurcoda + 1281 

Ook is het mogelijk om de sprites te manipuleren 
door middel van de BASIC-instructie: PUT SPRITE. 


In regels 50-70 wordt nu op de positie van de "B" 

oramma^hpu Va " l 7 in 9^ P0KEd - Run nu het pro- 

S tekst en »?» “J? dB C 1 r5ortoets en de cursor over 
ae teKst en zie wat er gebeurt. 


Alle hier gegeven informatie m.b.t. de sprites geldt 
ook voor de grafische schermen 2 en 3. Alleen bij de 
MSH 2 zijn bij de schermen 4 t/m 8 de sprite-in- 
structies nog verder uitgebreid. 


10 ’VPOKE-EXERCITIE MET SPRITES 
20 ’ 

30 SCREEN 1,1:COLOR 15,4,1:VIDTH 30 
40 KEY1, "VPOKE":KEY2,”RUN90" 

50 KEYON 

60 FOR 1=0 TO 79 

80 NEXT B BASE<9)+I * VPEEK(BA SE(7)+8+I) 

90 OPEN"CRT: ’’AS#1 
100 CLS:A=-l 

110 FOR 1=8 TO 232 STEP 32:A=A+1 

120 PUT SPRITE A,(I,(AM0D2)*16+10) A+7 

130 LOCATE4*A, 0:PRINTA ’ ' 

140 NEXT 

150 LOCATE 0,6 

160 INPUT"WELK SPRITENR.";A 

170 IF A>7 THEN 150 

180 A=A*4: PRINT 

lm Sïï?8”r n SPRITE tabel 

lil 5K5&Ï3Ï" = ” ÏPEEK<b> 

230 PRINT B” X-pos ="VPEEK(B) 

240 B=BASE <8 > +A+2 

250 PRINT B" naam =”VPEEK(B> 

260 B=BASE(8)+A+3 

270 B$=”00”+HEX$ (VPEEK(B)) 

280 PRINT B” kleur ="VPEEK(B)" 

290 LOCATE 0,13 


1| jEXPERIMENTEEL PROGRAMMA VOOR SCREEN 1, 

30 'INITIALISATIE 
40 ’ 

50 SCREEN 1,0,0:VIDTH 32:COLOR 15,1,1 
60 KEY OFF:DEFINT A-Z:ON STOP GOSUB 2270:S 
TOP ON 

70 A=241:B=97:C=40:Cl=7:C2=9:C3=243:C4=246 
80 ’ 

90 'INPOKEN van kleuren (base 6) 

100 ' 

110 VPOKE BASE(6)+5,244 
120 VPOKE BASE<6)+8,20 
130 VPOKE BASE(6)+9,20 
140 VPOKE BASE(6)+10,20 
150 VPOKE BASE<6)+13,B 
160 VPOKE BASE(6)+14,C3 
170 VPOKE BASE(6)+24,A+9 
180 VPOKE BASE<6>+25,208 
190 ’ 

200 1 INPOKEN van karakters (base 7) 

210 ' 

220 FOR 1=0 TO 7:READ A$ 

230 VPOKE BASE(7)+103*8+1,VAL("&H"+A$) 

240 VPOKE BASE(7>+104*8+1,VAL0’4H”+A$> 

250 NEXT 

260 DATA 00,3C,7E,7E,7E,7E,3C,00:'rondjes 
270 ’ 

280 FOR 1=0 TO 7:READ A$ 

290 VPOKE BASE(7>+112*8+1,VAL("&H"+A$> 

300 NEXT 

310 DATA FF,04,04,04,FF,40,40,40:'stenen 


32 









320 ’ 

330 FOR 1=0 TO 7 
340 VPOKE BASE(7)+64*8+1,0 
350 NEXT:'blanco 
360 ’ 

370 FOR 1=0 TO 55:READ A$ 

380 VPOKE BASE(7)+192*8+1,VAL(”&H"+A$) 

390 NEXT 

400 DATA FC, C4, C0,78,0C,8C,FC,00:’S 
410 DATA 78, C4, C0, C0, C0, C4,78, 00: ' C 
420 DATA F8,C4,C4,F8,D0,C8,C4,00:’R 
430 DATA FC, C4, C0, F8, C0, C4, FC, 00: ' E 
440 DATA C4,C4,E4,D4,CC,C4,C4,00:'I 
450 DATA 18,38,18,18,18,18,3C,00:’1 
460 DATA 00,00,00,00,00,00,00,00:' 

470 ’ 

480 FOR 1=0 TO 47:READ A$ 

490 VPOKE BASE(7)+200*8+I,VAL(”&H"+A$) 

500 SEXT 

510 DATA FC,C4,C0,78,0C,8C,FC,00:’S 
520 DATA F8,C4,C4,F8,C0,C0,C0,00:’P 
530 DATA F8,C4,C4,F8,D0,C8,C4,00:’R 
540 DATA 78,30,30,30,30,30,78,00:’ I 
550 DATA FC,B4,30,30,30,30,78,00:’T 
560 DATA FC, C4, C0, F8, C0, C4, FC, 00: ’ E 
570 ’ 

580 'INPOKEN SPRITES 8x8 (base 9) 

590 * 

600 FOR 1=0 TO 39:READ A$ 

610 VPOKE BASE<9>+I,(VAL("&H”+A$)> 

620 NEXT 

630 DATA 00,42,C3,E7,E7,FF,7E,3C 
640 DATA 3C,7E,F8,E0,E0,F8,7E,3C 
650 DATA 3C, 7E, FF,E7,E7,C3,42,00 
660 DATA 3C,7E,1F,07,07,1F,7E,3C 
670 DATA FF,99,99,FF,FF,42,7E,7E 
680 ’ 

690 'PRINTEN VAN HET BEELD 
700 ’ 

710 PRINT” ghghghgbghghghghghghghghghghgli 

720 PRINT” hghghghghghghghghghghghghghghg 

730 PRINT” gh"STRING$(26,112)”gh 

740 FOR 1=1 TO 8 

750 PRINT” ghp"SPACE$(24)"pgh 

760 PRINT” hgp"SPACES(24)"phg 

770 NEXT 

780 PRINT” hg”STRING$(26,112)"hg 

790 PRINT” ghghghghghghghghghghghghghghgh 

800 PRINT” hghghghghghghghghgliglighgliglighg” 

810 LOCATE 5,4:PRINT STRING$(22,112) 

820 LOCATE 5,5:PRINT”pp"STRINGS(18,64)”pp 
830 LOCATE 5,6:PRINT”pp”STRING$(18,64)"pp 
840 LOCATE 5, 7: PRINT”pp"STRING$(18,64)"pp 
850 LOCATE 5,8:PRINTSTRINGS(22,112) 

860 LOCATE 12,10:PRINT STRING$(9,198) 

870 LOCATE 12,12:PRINT STRINGS(9,198) 

880 LOCATE 12,11 

890 PRINT CHR$(198)+CHR$(192)+CHR$(193)+CH 
R$ (194) +CHRS (195) +CHR$ (195) +CHRS (196) +CHR$ 
(197)+CHR$(198) 

900 LOCATE 13,16 

910 PRINT CHR$(200)+CHR$(201)+CHRS(202)+CH 
R$(203)+CHR$(204)+CHR$(205)+CHR$(200) 

920 ’ 

930 'LICHTKRANT 
940 ’ 

950 A$=”@@@@@@@@@@@@@@@@DRUK@SPATI EBALK@IN 

@VOOR@VOLGBND@BEELD@@@@@@@@@@@@@@@@ 

960 FOR 1=1 TO 53 

970 LOCATE 8,6 

980 PRINT MID*(A$,I,16) 

990 GOSUB 1070 

1000 IF 1=53 THEN 1 = 1: GOTO 960 
1010 NEXT I 


1020 ’ 

1030 ’SÜBROUTINE 
1040 ’ 

1050 ’LOOPLICHT LANGS RAND 
1060 ' 

1070 VPOKE BASE(6)+13,A 

1080 VPOKE BASE(6)+12,B:SWAP A,B 

1090 ’ 

1100 'KLEUREN VAN TEKST WIJZIGEN 
1110 ' 

1120 VPOKE BASE(6)+25,(C\12-2)*16 
1130 C=C+2:IF C=208 THEN C=40:SVAP C1,C2 
1140 IF CMOD6=0 THEN VPOKE BASE(6)+24,A+9 
1150 ’ 

1160 'SPRITES VERPLAATSEN 
1170 ’ 

1180 PUT SPRITE 0,(C,137),C1,1 
1190 PUT SPRITE 1,(248-C,115),C2,3 
1200 ’ 

1210 FOR J=1 TO 50:NEXT J 
1220 IF STRIG(0) THEN 1290 
1230 RETURN 
1240 ' 

1250 ’*** BEELD 2,HAPPERTJE+SPOOK *** 

1260 ’ 

1270 'INITIALISATIE 
1280 ’ 

1290 CLS:PUT SPRITE 0,(0,208) 

1300 X=28:Y=17:H=16:V=5: SC=0:ES=0 
1310 ON SPRITE GOSUB 2070 
1320 SPRITE ON 
1330 ’ 

1340 'DUPLICEREN KARAKTER, WIJZIGEN KLEURE 
N 


1350 

1360 

1370 

8 + 1 ) 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 


FOR 1=0 TO 7 

VPOKE BASE(7)+33*8+I,VPEEK(BASE(7)+7* 
NEXT 

FOR 1=4 TO 10 
VPOKE BASE(6)+1,240 
NEXT 

I 

'PRINTEN VAN HET BEELD 


LOCATE 22,0:PRINT”SCORE”:PRINT 
PRINT" pppppppppppppppppppppppppppppp 

I I I I I 1 I I I II I I I t I I I I I I t I ! I 


PP 

PP 

PP 

PP 

PP 

PP 

PP 


PRINT” 
PRINT” 
PRINT” 
PRINT” 
PRINT" 
PRINT" 
PRINT” 
PRINT” 
PRINT” 
PRINT" pp 
PRINT” pp 
PRINT” pp 
PRINT" 
PRINT” 
PRINT” 


PP 

pppppppppppppp! ppppppppp!pp 
;;;!! m MM;; pi !! f f pi !{! ; pp 

PPPPPPPP!P ! P ! P ! P* P*P*PPP*PP 

!!!!!!!!!p! p!p!p!p!!!!! p!pp 

PPPPPPPP*P ! P ! P ! P ! P ! PPP ! P ! PP 

! ! ! \ ! ! ! p! p! ! !p!ptp!pl ! !p! pp 


ppppppppp!p!ppp'!!p!p!p!p!p!pp 


PP 


PP 

PP 

PP 


! ! ! ! ! ! ! ! ! p! ! ! p! p! p! ! ! p! p! pp 

pppppppp! !p!p!!!ppppp!p!pp 

!!!!!!!!!p!p!p!p!!!!!!! p! pp 

PPPPPPPPPP!P ! P ! PPP* PPPPP* PP 

f » f f I f f f f f I I t f f f f » f I » f t ff pp 


FPTfFFfFFFfFt ???????????*$ 

PRINT” pppppppppppppppppppppppppppppp 
LOCATE 9,20:PRINT"HET HAPPERTJE 
PUT SPRITE 0,(X*8,Y*8-l),9,3 
PUT SPRITE 1,(H*8,V*8-l),15,4 
IF STICK(0)=0 THEN 1660 


HOOFDLÜS BESTURING HAPPERTJE 


GOSUB 1940 

A=STICK(0) :IF A=0 THEN 1700 


1720 B=A\2+1 

1730 ON B GOTO 1740,1760,1780,1800 

1740 IF VPEEK(BASE(5)+(Y-l)*32+X)>33 THEN 

1700 
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1750 Y=Y-1:GOTO 1850 

1760 IF VPEEK(BASE<5)+Y*32+X+1)>33 THEN 17 
00 

1770 X=X+1:GOTO 1850 

1700 IF VPEEK(BASE<5)+(Y+1) * 32+X >>33 THEN 
1790 Y=Y+1:GOTO 1850 

1800 IF VPEEK(BASE(5)+Y*32+X-l)>33 THEN 17 
00 

1810 X=X-1:GOTO 1850 
1820 ’ 

1830 *VERPL.HAPPEEJE + SCORE TELLING 
1840 ’ 

1850 SPRITE OFF:PUT SPRITE 0, <X*8,Y*8-l>,9 
) B 1 

1860 IF VPEEK(BASE(5)+Y*32+X)=33 THEN SC=S 
C+l:ES=ES+1 

1870 LOCATE 27,0:PRINT SC; 

1880 VPOKE BASE(5)+Y*32+X,32 
1890 IF ES=230 THEN 2210 
1900 SPRITE ON:GOTO1700 
1910 ’ 

1920 ’SUBROUTINE VERPL.SPOOK 
1930 ’ 

1940 IF VPEEK(BASE(5)+(V-1)*32+H)>33 THEN 
1960 

1950 IF V>Y THEN V=V-1 

1960 IF VPEEK(BASE(5)+V*32+H+1)>33 THEN 19 
80 

1970 IF H<X THEN H=H+1 

1980 IF VPEEK(BASE(5) + (V+l)*32+H>>33 THEN 
2000 

1990 IF V<Y THEN V=V+1 

2000 IF VPEEK(BASE(5)+V*32+H-1>>33 THEN 20 
20 

2010 IF H>X THEN H=H-1 

2020 PUT SPRITE 1, <H*8,V*8-l>,15,4 

2030 RETURN 1710 

2040 ’ 

2050 'ON SPRITE SUBROUTINE 
2060 ’ 

2070 FOR 1=1 TO 10 

2080 SWAP C3,C4 

2090 VPOKE BASE(6)+14,C3 

2100 FOR J=0 TO 20 

2110 NEXT:NEXT 

2120 SPRITE OFF:SC=SC-10 

2130 LOCATE 27,0:PRINT SC; 

2140 H=16:V=5:IF V=Y THEN V=15 
2150 PUT SPRITE 1,(H*8,V*8-l>,15,4 
2160 FOR 1=0 TO 200:NEXT 
2170 SPRITE ON: RETURN 1710 
2180 ' 

2190 'EINDE/ESCAPE 
2200 ’ 

2210 LOCATE 9,21:PRINT"ESC = OPNIEUW. 

2220 I$=INKEY$:IF 1$=”"THEN 2220 
2230 IF ASC(I$)=27 THEN 1290 ELSE 2220 
2240 ’ 

2250 ' TERUGKEER NAAR SCREEN 0 
2260 ’ 

2270 SCREEN0: WIDTH36:COLOR15, 4, 4 

EXPERIMENTEEL PROGRAMMA VOOR SCREEN 1. 

Het is vrijwel ónmogelijk om U de diverse truuks 
met SCREEN 1 uit te leggen zonder het daarbij beho¬ 
rende beeld te laten zien. We kunnen Hier in dit blad 
natuurlijk wel wat plaatjes afdrukken, maar de 
techniek is nog niet zo ver, dat we bewegende beel¬ 
den kunnen laten zien. We zullen daarom toch ook 
ons beeldscherm nodig hebben.... en wat erger is, ook 
nog een programma, dat voor ons die beelden 
oproept. Er zit dus niets anders op dan dat U eerst 


eens wat huiswerk gaat maken door het experimente¬ 
le programma voor screen 1 in te tikken. Terwille 
van een goed overzicht zijn in deze listing veel 
REM-regels opgenomen. Die kunt U dus rustig over¬ 
slaan. Ik wacht nu even, totdat U de listing hebt 
overgenomen en het programma draait. Daarna zal ik 
de verschillende programmadelen wat nader toelich¬ 
ten. FOR I - nu TO straks : NEXT 

Zo, daar zijn we weerl 

Regels 60 (na A-Z) en 2270. Deze 2 regels zorgen er¬ 
voor, dat na een CTRL- STOP het scherm terugkeert 
naar screen 0. Zouden we deze regels niet hebben 
overgenomen, dan zou na een CTRL- STOP worden te¬ 
ruggekeerd naar screen 1, met als gevolg een vrijwel 
onleesbare tekst door de vele POKE's. 

Regels 110-180. Hier worden bepaalde karaktergroepen 
middels een VPOKE-instructie van de gewenste voor- 
en achtergrondkleur voorzien. Aanvankelijk waren 
deze allen wit, resp. zwart t.g.v. de COLOR-instructie 
in regel 50 (waarde 241). 

Regels 220-350. Hier worden in de patroontabel enige 
nieuwe karakters IngeVPOKEed, zoals rondjes voor 
het looplicht, steentjes voor de muur en een spatie. 

Regels 370-560. In dit blok worden wat nieuwe hóófd¬ 
letters aangemaakt voor de teksten "SCREEN 1" en 
"SPRITES". Deze karakters, welke wat voller zijn dan 
de normale standaardkarakters, zijn in de blokken 
24 en 25 ondergebracht. De standaard hoofdletters 
in de blokken 8 t/m 10 worden straks gebruikt bii de 
lichtkrant. J 

Regels 600-670. Hier worden de sprites ingeVPOKEd, te 
weten het bekende "happertje" in vier standen en 
het spookje. We hadden deze sprites ook met de va¬ 
riabele SPRITES kunnen invoeren, maar we zijn nu 
toch aan het POKEn. Zoals U ziet, zijn alle data's ge- 

ê even in hexadecimale waarden. Als U wat ervaring 
ebt in het werken met deze hexadecimale getallen, 
zult u merken, dat dit minder kans geeft op vergis¬ 
singen, terwijl ook de dataregels wat netter en 
overzichtelijker zijn. 

Regels 710-910. In deze regels wordt het beeld opge¬ 
bouwd. De letters g,h en p worden hier veelvuldig ge¬ 
bruikt. De letters g en h staan nu echter voor de 
rondjes van het looplicht en de p staat voor de ste¬ 
nen (zie regels 220- 310). In de regels 890 en 910 
worden de teksten "SCREEN 1" en "SPRITES" geprint. 

Regels 950-1010. Hier wordt de lichtkrant in werking 
gesteld. Regel 950 geeft de tekst aan. CHR$(64) staat 
hierin voor een spatie met blauwe achtergrond; dit 
omdat de oorspronkelijke spatie met zwarte achter¬ 
grondkleur al eerder werd gebruikt voor de zwarte 
achtergrond in het middenvlak (CHR$(32) in regels 
750 en 760). Bij een lichtkrant moeten we een tijds¬ 
vertraging inbouwen, daar anders de loopsnelheid te 
hoog wordt en derhalve de tekst onleesbaar. Van 
deze benodigde wachttijd wordt nu dankbaar gebruik 
gemaakt om de diverse "toeters en bellen" in werking 
te stellen. 

Dit gaat dan via de G0SUB- instructie in regel 990. 
Met de instructie: PRINT MIDS(A$,I,16) worden telkens 
16 karakters in het venster uitgeprint. Bij elke cu- 
clus van de FOR- NEXT lus verschuiven deze karak¬ 
ters 1 positie naar links. Op regel 1000 wordt zonodig 
naar het begin van de tekstregel teruggesprongen. 
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Regels 1070-1230. Deze subroutine verzorgt allereerst 
in regels 1070 en 1080 het beurtelings aan/uit gaan 
van de lampjes van het looplicht. Kleur A staat voor 
wit en kleur 6 voor rood. Dit overeenkomstig de ini¬ 
tialisatie in regel 70. Regel 1120 zorgt ervoor dat de 
tekst "SPRITES* alle kleuren van 1 t/m 15 doorloopt. 
Regel 1130 verzorgt de X-coordinaat van de sprites 
en het tijdig omslaan van de spritekleur (C1.C2) bij 
de teruggaande beweging. Regel 1140 verzorgt de 
kleurwisseling van de tekst: "SCREEN 1". Regels 1180 
en 1190 zorgen voor de verplaatsing van de sprites. 
In regel 1210 is toch nog een korte tijdsvertraging 
ingelast, alvorens wordt teruggesprongen naar de 
F0R - NEKT lus van de lichtkrant. Tenslotte biedt 
regel 1220 de mogelijkheid om over te gaan naar het 
volgende beeld: 

HET HAPPERTJE. 

Het volgende beeld laat U een happertje zien, dat 
zoveel mogelijk punten moet opeten. Een spookje zal 
proberen om hem telkens 10 punten af te pakken. 
Het gaat bij dit spel meer om tactiek (het spookje 
om oe tuin leiden) dan om snelheid. Het happertje 
wordt bestuurd met de cursortoetsen. 

Regels 1290-1410. Initialisatie. Hier worden aan wat 
variabelen de beginwaarden toegekend en wordt de 
sprite-botsingsroutine geactiveerd. Ook het duplice¬ 
ren van een karakter (het l-teken staat nu voor een 
dikke punt) en het wijzigen van wat kleuren behoren 
tot dit voorbereidend werk. 

Regels 1450-1E50. In dit blok wordt het labyrint ge¬ 
print, alsmede wat teksten. In regels 1640 en 1650 
worden de sprites in de startblokken gezet. Het spel 
start zodra een van de cursortoetsen wordt inge¬ 
drukt (regel 1660). 

Regel 1700-1900. HooNlus. Als eerste wordt naar sub. 
1940 gesprongen voor de verplaatsing van het spook¬ 
je, maar daarover straks meer. We kijken nu eerst 
naar de spriteroutine. Normaal is de STICK-status 



In regel 1720 wordt deze code omgezet in die, welke 
hierboven tussen O zijn gegeven. Dit maakt het mo¬ 
gelijk om via regel 1730 te springen naar die regel, 
waarin de instructies staan, welke betrekking hebben 
op de ingevoerde bewegingsrichting van de sprite. 
Allereerst wordt daar dan gekeken of het vak waar 
naar toe moet worden gesprongen misschien anders 
is dan een spatie (ASClT'32) of een punt (ASCII=33). 
Zo dit het geval is en het happertje in de muur zou 
belanden, wordt weer teruggesprongen naar het 
begin van de hoofdlus (regel 17u0). Ligt de nieuwe 
positie van de sprite niet in da muur, dan wordt X 
of Y overeenkomstig de stick-status aangepast en 
het happertje verplaatst (regel 1850). Wanneer er op 
de nieuwe positie een punt staat, wordt de score met 
1 opgehoogd en uitgeprint (regels 1810 en 1820). In 
regel 183D wordt dan de eventueel aanwezige punt 
vervangen door een spatie, waarna weer wordt te¬ 
ruggekeerd naar regel 1700. Tenzij alle 230 punten 
opgegeten zijn, want dan wordt vanaf regel 1890 
naar het laatste blok (einde spel) gesprongen. Tij¬ 
dens de verplaatsing van het happertje wordt de ÓN 
SPRITE routine even uitgeschakeld, om te zorgen dat 
de scoretelling niet in de war loopt. 

Regels 1940-2030. Deze subroutine zorgt ervoor, dat 
het spookje zich verplaatst in de richting van het 
happertje, door de afstand tussen de coördinaten 
t.o.v. het happertje zo mogelijk steeds te verkleinen. 
Ook het spooK kan zich alleen verplaatsen via de 
(zwarte) vakken, waarvan de ASCII- waarde kleiner is 
dan 33. Zodra beide sprites elkaar bedekken, treedt 
de botsingsroutine in werking: 

Regels 2070-2170. Tot aan regel 2110 wordt hier de 
botsing geaccentueerd met wat flakkereffecten. 
Nadat de score met 10 punten is verlaagd en uitge¬ 
print (regels 2120-2130), wordt het spook weer in de 
uitgangspositie teruggezet, (H*16,V*5) tenzij op regel 
5 toevallig het happertje zou staan (Y s 5J. In dat 
geval wordt V op 15 gesteld. Na een korte pauze in 
regel 2160 wordt dan weer teruggesprongen naar de 
hoofdlus. 

Regels 2210-2230. Als het spel ten einde is, kan via 
dit blok middels "ESC" weer terug worden gesprongen 
naar het begin voor een nieuwe poging. 

NASCHRIFT. 

We zouden nog veel meer kunnen bereiken, als we ook 
nog met machinetaal gingen werken, doch dat is een 
verhaal apart. Het voornaamste doel van dit artikel 
was om U enig inzicht te verschaffen in de werking 
van de VDP in de SCREEN 1-mode en U daardoor wat 
meer vertrouwd te maken met de diverse karakters 
en de manier waarop we hiermee kunnen manipuleren. 
Bij het experimentele programma is zomaar een 
kleine greep gedaan in de truukendoos met als enig 
doel U een beetje enthousiast te maken voor het 
zelf in BASIC experimenteren en programmeren in 
SCREEN 1. 


Ger. 



ZB O CC\V p 1 «b. 
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LEER, PROBEER EN 
PROGRAMMEER 

Deel B: SOUNDS or Silence 

U bent gewend ln deze kursus vooral serieuze onder¬ 
werpen tegen te komen. Het is immers de bedoeling, 
dat u de computer op een nuttige manier gaat ge¬ 
bruiken om uw dagelijkse werk te vereenvoudigen. 
Toch wijk ik een keer af van de traditie door de 
helft van dit deel'te wijden aan de geluidschip in de 
MSH-computer. Er zijn namelijk veel vragen van 
lezers over deze bron van geluid en ik kan in een 
aantal pagina’s waarschijnlijk veel onduidelijkheden 
wegnemen. 

- P.S.G. - 

De chip waarmee we geluid kunnen produceren op 
onze computer, is een programmeerbare geluidsgene- 
rator, ofwel Programmatte Sound Generator (PSG). Dit 
komt er in het kort op neer, dat we de beschikking 
hebben over een chip, die met behulp van een aantal 
kommando's bestuurd kan worden om een willekeurig 
geluid te maken. 

MSH-BASIC voorziet op twee manieren in de behoefte 
van vooral de spelmakers om een programma van 
geluid te voorzien. De eerste is de PLAY-instruktie, 
waarmee we met behulp van namen van noten (C,D,E, 
etc) eenvoudige muziekstukken kunnen invoeren in 
de computer. Hierbij kunnen we in een bepaald 
oktaaf werken en met name de lengte van de noten 
aangeven. Uil men echter effekten gaan produceren, 
dan blijkt de PLAY-instruktie te traag te werken: 
voor een explosie zijn reeksen tonen nodig, die snel 
af gewisseld worden en voorzien zijn van bijgeluiden 
(ruis). Om in dergelijke gevallen toch uit de voeten 
te kunnen, hebben we een tweede mogelijkheid: 

- SOUND - 

De SOUND-instruktie heeft een direkte invloed op de 
werking van de P.S.G., terwijl de PLAY-instruktie 
eerst door de computer vertaald moet worden naar 
de Juiste kommando's voor de P.S.G. Het gevolg is 
dan ook dat de SOUND-instruktie vele malen sneller 
werkt dan PLAY. 

De P.S.G. is voorzien van een lB-tal registers: dit 
zijn in feite geheugenplaatsen, waarin waarden 
staan, die aangeven wat de chip op dat moment moet 
doen. Naast het aan- en uitzetten van de chip zijn 
er namelijk vele kombinaties van instellingen moge¬ 
lijk, waardoor een bijna onbeperkte variëteit aan ge¬ 
luiden is op te wekken. 

Om geluiden te produceren hebben we op een 
MSK-computer de beschikking over 3 kanalen, die we 
voor het gemak aanduiden met de letters A, 5 en C. 
Dat houdt in dat we op een moment drie verschillen¬ 
de signalen tegelijk kunnen laten horen, zodat meer¬ 
stemmige muziek mogelijk is. Dit is meer dan op veel 
PC's kan, maar voor sommige fabrikanten toch nog te 
weinig. Konami bijvoorbeeld past een 8-kanaals 
soundchip in de nieuwste spellen toe om naast 3-ka- 
naals achtergrondmuziek ook de akties hoorbaar te 
maken, die op dat moment plaatsvinden. ToegBgeven, 
het klinkt prachtig, maar met 3 kanalen kunnen we 
ook heel wat doen. 

De aanwezige registers zijn: 


Rag 

Min 

Max 

Omschrijving 


9 

9 

255 

Fijnafstelling Kanaal 

A 

1 

9 

15 

Grofafstelling Kanaal 

A 

2 

9 

255 

Fijnafstelling Kanaal 

B 

3 

9 

15 

Grofafstelling Kanaal 

B 

4 

9 

255 

Fijnafstelling Kanaal 

C 

5 

9 

15 

Grofafstelling Kanaal 

C 

6 

9 

31 

Ruisfrequentie 


7 

9 

255 

KanaalschaKel aars 


8 

9 

16 

Volume Kanaal A 


9 

9 

16 

Volume Kanaal B 


19 

9 

16 

Volume Kanaal C 


11 

9 

255 

Tijdsduur golf 


12 

9 

255 

Tijdsduur golf 


13 

9 

15 

Golfvorm 


14 

9 

1 

I/O-register, geen funktie 

15 

9 

1 

I/O-regieter, geen funktie 


Zoals u ziet hebben de registers 14 en 15 geen funk- 
tie voor het produceren van geluid. De waarde ervan 
is dus niet van belang en we laten deze twee regis¬ 
ters dan ook buiten beschouwing. 

Er zijn dan nog 14 registers, die we kunnen gebrui¬ 
ken om de P.S.G. aan te sturen. In oplopende volaorde 
zijn dat: 

- rü t/m r5: Toonhoogtes - 

Om geluiden te maken, moeten we de chip vertellen 
op welke toonhoogte (frequentie) hij deze moet gene¬ 
reren. Door nu registers 0 tot en met 5 te vullen 
met daarvoor toegestane waardes, kunnen we dit 
sturen. De waardes 0 tot en met 255 staan voor een 
bepaalde frequentie, afhankelijk van het register, 
waarin ze gezet worden. Register 1 bijvoorbeeld is de 
grof af stelling van kanaal A. Hierin mag de waarde 
liggen tussen 0 en 15, waarbij 15 de laagste toon op¬ 
levert (dus: hoe hoger de registerwaarde, des te 
lager de toon die daaruit voortkomt!). Nu is een va¬ 
riatie van 16 hoogtes niet echt spectaculair, dus is 
er een zogenaamde fijnafstelling toegevoegd, die we 
in kanaal 0 zien: door hier een waarde tussen 0 en 
255 in te zetten kunnen we de grofafstelling van 
kanaal A een beetje 'afbuigen' naar een andere 
toonhoogte. De volgorde waarin dus de hoogtes lopen, 
kan alsvolgt gezien worden: 


Register Waarde Register Waarde 


9 

9 

9 

9 

9 

9 


253 

254 

255 
9 
1 
2 


3 

3 

3 

4 
4 
4 


De registers 2-3 en 4-5 zijn in feite een kopie van 
0-1, maar de funktie ervan heeft in die gevallen 
betrekking op resp. kanaal B en C. Ook daar hebben 
we een grof- en rijnafstelling, die volgens hetzelfde 
principe als A werkt. 

Het kan belangrijk zijn om een bepaalde frequentie 
te programmeren. U heeft dan geen gemakkelijke in- 
struktie om te zeggen: PLAY “lffOOOkiïz”. Er gaat een 
berekening aan vooraf als u een dergelijke mogeli Ik¬ 
heid wilt gebruiken: J 


1789778,5 


= 256 X (grof) + (fijn) 
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16 X (Hertz) 









Als u (Hertz) een gewenste waarde geeft, zal deze 
berekening een uitkomst (grof) en (fijn) geven, 
waarbij (grof) staat voor register 1, 3 of 5 en (fijn) 
voor 0, S en 4 (afhankelijk van het te gebruiken 
geiuidskanaal). 

- r6: Ruisfrequentie - 

Naast de 'schone' geluiden die kanaal A, 8 en C kun¬ 
nen voortbrengen is er de mogelijkheid een ruissig¬ 
naal toe te voegen aan het geluid. Dit kan vele toe¬ 
passingen hebben, denk bijvoorbeeld aan de helikop¬ 
ter in 'Overijssel per helikopter'. Zonder ruissignaal 
had je het idee gehad dat er een Solex voorbijkwam, 
nu klinkt het echter als een volwaardige en zware 
motor. Ook andere geluiden, bijvoorbeeld van 
explosies, bevatten veel ruis. 

Om nu een dergelijk effekt te bereiken is er het 
register nummer 6, dat de frequentie bevat van het 
ruisgeluid. Deze wordt met behulp van de volgende 
funktie omgerekend: 

RS - INT (178777. fi / (Hertz X 16)) 

RS is hierbij de waarde die in het ruisregister ge¬ 
plaatst moet worden, Hertz de gewenste frequentie. 
RS moet een waarde hebben in de range 0 tot en met 
31, waarbij 0 geen ruis geeft. 

- r7: Schakelkast - 

Het register dat de basisinformatie bevat is nummer 
7, de schakelkast van de geluidschip. Hierin worden 
de verschillende kanalen aan en uit gezet, toon en 
ruis geselekteerd etc. 

Register 7 is een acht bits register (een byte). Dat 
betekent eigenlijk dat het om een schakelkast gaat 
waarin 8 schakelaars zitten, die de waarde aan en 
uit kunnen hebben. De waarde 0 staat voor aan, de 
waarde 1 staat voor uit. (0 en 1 zijn de enige getal¬ 
len die in 1 bit kunnen staan). In schema: 


17 16 1 

3 S 

4 1 

3 1 

2 1 

1 I 

0 1 

bi t nr. ! 

I/O I 



1 



I 


bits 1 

• 

i 

rui s 

1 

i 

* 

toon 

J 

! 


1 

1 

1 

1 

C 1 

1 

1 

B 1 

1 

1 

A 1 

1 

I 

C 1 

1 

B I 

1 

1 

A i 

1 

Kanaal 

■ 

■ 

0 1 

0 1 

9 1 

9 i 

9 1 

0 S 

0 = aan 

I 

1 1 

1 S 

1 i 

1 ! 

1 I 

1 1 

1 - uit 


Bit 7 en 6 worden niet voor geluiden gebruikt en 
kunnen dus buiten schot blijven in dit verhaal. De 
andere bits hebben een funktie, die in bovenstaand 
schema verduidelijkt wordt. Als bit 0 de waarde 1 
heeft, betekent dat dat kanaal A niet aktief is voor 
toongeneratie. Heeft bit 3 de waarde 0, dan kan 
kanaal A wel een ruis produceren. Een kombinatio is 
ook mogelijk: de waarde 0 in bit 1 en 4 geeft aan 
dat kanaal B tegelijkertijd toon en ruis kan produ¬ 
ceren. Om een dergelijke byte goed te vullen, is de 
binaire notatie zeer geschikt. Om een binair getal te 
gebruiken moeten we het voorvoegsel &B gebruiken, 
bijvoorbeeld: 

&B10101010 


Willen we bijvoorbeeld in register 7 alles uitzetten, 
dan is het binaire getal IBllllllll bruikbaar. Immers, 
een 1 betekent: funktie op non-aktief. 

Nu komen we dan ook bij de eigenlijke opdracht om 
een register in de P.S.G. te vullen: SOUND. 

SOUND 7, &B11111111 

wil zeggen dat register 7 gevuld wordt met 8 enen, 
alle funkties staan dan uit. Zo kunnen we meer 
voorbeelden bedenken: 

- Toon op kanaal A, ruis op B en C: 

SOUND 7, &B11 OOI 110 

- Toon en ruis op A, B en C uit: 

SOUND 7, &B1111Q110 

- Ruis op A, toon op B en toon/ruis op C: 

SOUND 7, &B11010001 

Bedenkt u zelf ook eens wat kombinaties en probeer 
het binaire equivalent te vinden! 

- r8 t/m rlO: Pump up the volume - 

Al uw pogingen ten spijt: u hebt nog geen pieptoon- 
tje gehoord. Net als alle andere geluidsproducerende 
apparaten hebben we ook hier een volumeknop die 
'opengedraaid' moet worden. Daarvoor dienen de 
registers 8, 9 en 10. 

Als we een van deze registers op 0 hebben staan, 
betekent dat dat het betreffende kanaal (A s 8, B=9 
en OIO) geen geluid geeft: het volume staat op 0. 
Een waarde tussen 1 en 15 geeft een zacht tot hard 
geluid (op veel monitoren echter ook nog met de 
volumeknop extra te versterken). 

Het kan erg leuk zijn om een spanning op te wekken, 
door een onheilspellend geluld langzaam 'dichterbij' 
te laten komen door middel van de volumeregeling. 
Vooral in spellen kan het volume dus van extra 
waarde zijn. 

Er is nog 1 volume dat we niet gehad hebben: 16. 
"Nou en", zult u zeggen. "Dat is gewoon het grootste 
lawaai dat het ding aankan". Mis, volume Ï6 heeft 
een bijzondere funktie. Gebruiken we 1 tot en met 
15, dan zal het geluid een sinusvorm aannemen, dat 
wil zeggen een geleidelijk harder en dan weer zach¬ 
ter warden, dat zich zeer snel herhaalt. Met volume 
16 kunnen we echter andere golfvormen aanspreken, 
die interessante gevolgen kunnen hebben. 


Golfvorm rmfllstmr 13 
bij volumm 16 

WAARDE |— GOLFVORM 


8 

WNv 7 

9 

! K--max. 

v. 

10 

wr: 

11 

N 

1 -max. 

1- 0 

12 

AWC7 

13 

- ---max. 

- 0 

14 

aa:: 

15 

/i 

-max. 

-0 
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- ril t/m rl3: Golfvormen en frequentie - 
In register 13 kunnen we een golf selekteren met de 
waardes 6 t/m 15 (of 0 t/m 7, die dezelfde funktie 
hebben}. Golf 11 betekent bijvoorbeeld dat een gege¬ 
nereerde toon eerst langzaam in volume daalt, dan 
plotseling tot het maximum stijgt en dat maximale 
volume aanhoudt. Bij waarde 15 krijgen we een heel 
ander effekt: het geluid stijgt naar het maximale 
volume, om dan opeens in stilzwijgen te veranderen. 
Dit geeft zeer scherpe en abrupte tonen. 

Het doorlopen van de golf (de snelheid waarmee een 
dergelijke cyclus afgewerkt wordt), kan gestuurd 
worden met de registers 11 en IS. Onderstaand voor¬ 
beeldprogramma geeft u de mogelijkheid de tijd in 
sekonden te geven die doorlopen moet worden 
voordat het geluid opnieuw de hele golfvorm moet 
ondergaan. Let wel: de waardes van ril en rlS mogen 
niet kleiner dan 0 en niet groter dan S55 zijn. 

10 INPUT "Sekonden: “ i SK 

SO H - INT (178977S. 5 / 256 X 8K) 

30 N2 - INT (N / 856) 

40 Hl - H - ( H2 X 256) 

50 SOUND 11, Hl 
60 SOUND 12, H2 

Let op: de golfvorm en de frequentie van de golf is 
alleen van toepassing als het volume van 1 of meer¬ 
dere kanalen 1B is! 

Het uitzetten van een geluid kan door middel van 
CTRL/STOP of door het volume van een kanaal op O 
te zetten. Ook als er in een ander deel van het be¬ 
treffende programma een fout optreedt (syntax er- 
ror o.i.d.) zal de SOUND stoppen, omdat de computer 
dan zelf een BREAK genereert. 

Nog enkele kleine voorbeelden: 

10 SOUND 7, &B11111110 

20 FOR F = 1 TO 10 

30 FOR B » 255 TO O STEP -F 

40 SOUND O, B 

50 SOUND 1, F 

60 SOUND 8, 15 

70 NEXT : NEXT 

80 SOUND 8, O 


10 SOUND 7, &B11011100 
20 FOR F - 1 TO 15 
30 FOR 6 - 15 TO 1 STEP -1 

40 FOR H « 15 TO 1 STEP -F 

50 SOUND O, 100 
60 SOUND 1, 8 

70 SOUND 8, H 

80 NEXT i NEXT : NEXT 
90 SOUND 8, O 

100 8CREEN O: COLOR 1,7,7 

110 CL8 

120 KEY OFF 

130 HIDTH 40 

140 LOCATE 1,10 

150 PRINT "Druk op CESC! om op ta stijgen.." 
160 F-10 

170 SOUND 7, &B11110101 
180 SOUND 11,50 
190 SOUND 12, F 
200 SOUND 13, 12 
210 SOUND 6,28 

220 IF INKEY* ■ CHR*(27) THEN F-F-. 06: 

SOUND 12,FiIF F<1 THEN 300 


230 SOUND 0,1 
240 SOUND 1,13 
250 SOUND 8, S 
260 SOUND 9,16 
270 SOUND 8,5 
280 SOUND 9,6 
290 BOTO 220 
300 COLOR 1,1,1 
310 LOCATE 1,10 

320 PRINT "U hebt de motor zojuist opgebla¬ 
zen! “ 

330 SOUND 6,20 

340 FOR F - 15 TO O STEP -.02 

350 SOUND 8, F 

360 NEXT 

370 SOUND 8,0 

380 SOUND 9,O 

390 KEY ON 

400 COLOR 15,4,4 

999 END 

- Back to tradition - 

Het serieuze deel van de kursus is in deze 8e afle¬ 
vering gewijd aan de opslag van gegevens in tabel¬ 
vorm. Om dit tot stand te brengen moeten we de 
computer vertellen wat we willen opslaan en hoe dat 
moet gebeuren. 

- DIM - 

Met de DIM-opdracht kunnen we de computer vertel¬ 
len, dat hij een deel van het interne geheugen moet 
reserveren voor opslag van een reeks soortgelijke 
gegevens (DIM staat voor dimension). De uitvoering 
ervan heeft als gevolg dat de computer een stuk 
geheugen initialiseert, voordat toekomstige opslag 
van gegevens mogelijk is. Een voorbeeld: 

Dl H N( 1 O) 

zorgt ervoor dat de computer geheugenplaatsen re¬ 
serveert voor 10 numerieke gegevens en deze plaat¬ 
sen initieel op O zet ! Dat is een belangrijk verschil 
met andere hogere programmeertalen als Cobol en 
Pascal, waarin we wel een soort DIM kunnen toepas¬ 
sen, maar waarbij we er zelf voor moeten zorgen dat 
de betreffende geheugengebieden schoongemaakt 
worden. Doen we dit niet, dan is de inhoud ervan on¬ 
voorspelbaar. 

DIM biedt ons dus de mogelijkheid om de computer 
alvast te vertellen dat we van plan zijn een serie 
gegevens op te slaan in het geheugen waarmee we 
bewerkingen gaan uitvoeren. Me kennen reeds twee 
soorten variabelen, namelijk de numerieke en de al¬ 
fanumerieke variabelen. Wat moeten we echter doen 
als we van een type variabele meerdere waardes op 
willen slaan? Me kunnen 10 variabelenamen gaan 
verzinnen, maar we zien dan niet in een oogopslag 
dat de variabelen eigenlijk dezelfde funktie hebben. 
Bovendien zijn we dan snel door de beschikbare 
namen heen. Er is een betere methode. 

Stel dat we een lijst met 50 artikelen in het geheu¬ 
gen wllen bewaren om er een boodschappenlijst van 
te maken. Me kunnen dan zeggen: 

10 INPUT "Artikal 1"; A$1 
20 INPUT "Artikel 2"; A*2 
30 INPUT "Artikel 3“(A«3 
etc. 
etc. 

Niemand zit op een dergelijke ’struktuur' te wach¬ 
ten, dus gebruiken we DIM: 
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10 DIM A*( 50) 

80 FOR F = 1 to 50 
30 LOCATE 1,10 
40 PRINT "ArtiKal ";F 
50 LOCATE 1,18 
60 INPUT A*(F) 

70 IF (A$(F)<> H STQP H ) THEN NEXT 
80 CL8 

90 FOR Q * 1 TO F-l 
100 PRINT A$( G) 

110 NEXT 
180 END 

Zoals u ziet bouwen we in no-time een programma om 
50 gegevens in te voeren. De invoer kan onderbroken 
worden door STOP als artikelnaam in te geven. An¬ 
ders wordt doorgegaan totdat artikel 50 is bereikt. 
Het is maar een simpel voorbeeld van wat we met 
behulp van DIM kunnen doen: in plaats van losse 
gegevens maken we een aaneengesloten serie gelijke 
variabelen aan, die door middel van de INDEX (in ons 
geval F en G) gevuld en gelezen kan worden. Een 
dergelijke reeks noemen we een ARRAY. 

Het aantal dat tussen haakjes staat (50 in ons 
voorbeeld) geeft aan hoeveel elementen de arrag ma¬ 
ximaal mag bevatten. Hier moeten we er nog 1 bijtel¬ 
len, omdat element 0 ook geldig is: 

PRINT A*(G) 

PRINT A*(l) I 

! ! --51 elementen 

i i 

i i 

PRINT A$(50) — 

De naam van de arrag bepaalt het tgpe variabele, 
dat we willen opslaan: A$ staat, zoals we in vorige 
delen zagen, voor een alfanumerieke variabele. Voor 
arrags geldt dus hetzelfde als voor 'losse’ variabe¬ 
len. DIM BQO) wil dus zeggen dat we over numerieke 
gegevens praten. 


0 


l l 


; a 

■ ■ 


I 10 I 


De arrag BQO) bestaat uit 11 elemen¬ 
ten, die onafhankelijk van elkaar te 
gebruiken zijn, maar toch een bin¬ 
ding hebben. Ze zijn van hetzelfde 
type en als de programmeur 
gestruktureerd te werk gaat, zullen 
ze gevuld zijn met soortgelijke ge¬ 
gevens. 

Elk element uit een gedimensioneerde array kunnen 
we apart uitvragen, bijvoorbeeld door de inhoud op 
het scherm af te drukken: 

PRINT A$( £5) 
of 

PRINT B( F+5) 


Ook variabelen mogen dus index zijn van een array 
(of daarvan deel uitmaken). 

Nog een opmerking: willen we maximaal 11 elementen 
gebruiken in een array (0 t/m 10), dan is het niet 
strikt noodzakelijk een DIM instruktie te geven. De 
computer geeft namelijk zelf een default (standaard) 
waarde aan een variabele mee, die een indexering tot 
maximaal 10 mogelijk maakt. Bijvoorbeeld: 

10 CLS 

EO FOR F»0 TO 10 
30 INPUT A( F) 

40 NEXT 

Maken we echter F groter dan 10, dan zal de compu¬ 
ter u verrassen met een melding "Subscript out of 
range", ofwel de index van een tabel is buiten het 
toegestane bereik beland. 

Een DIM opdracht mag ook gelden voor meerdere ar- 
rays tegelijk: 

DIM A( 10) , B*( 10) , CO( 5) 

Zo kunnen we in 1 regel meerdere gebieden reserve¬ 
ren voor tabelopslag. 

- Een DIM-töepassing - 

Om de toepassing van een array te verduidelijken, 
staat hieronder een enqueteprogrammaatje, dat tot 
doel heeft het registreren van de computer die een 
gebelde lezer van de MSK-Gids in zijn bezit heeft. Zo 
kan men tot een overzicht van de meest gebruikte 
apparatuur komen. 

1000 GOSUB 2000 

1010 GOSUB 3000:IF (KE<>9) THEN 1010 

1020 GOSUB 4000 

1030 KEY ON 

1040 CLS 

1050 END 

2000 KEY OFF 

2010 SCREEN 0 

2020 COLOR 1,7,7 

2030 CLS 

2040 SET BEEP 1,3 
2050 VIDTH 40 
2060 DEFINT C-K 
2070 DIM CO(6) 


2080 PRINT " r 

_, I» 


2090 

PRINT 

”1 

Telefonische MSX-verkiezi 

ng 

2100 

r 

PRINT 

1 ti 

M | 






2110 

PR INT 

if 

M 



1 



2120 

PRINT 

tt | 

1) 

Sony HB-F700P 

2130 

1 " 

PRINT 

M I 

2) 

Goldstar FC-200 

2140 

i ** 

PRINT 

»* I 

3) 

Philips NMS 8280 

2150 

1 99 

PRINT 

M I 

4) 

Sony HB-F9P 

2160 

1 '* 

PRINT 

tt | 

5) 

Philips VG8235 

2170 

| H 

PRINT 

»» | 

6) 

Ander type 

2180 

1 ” 

PRINT 

tt | 



2190 

1" 

PRINT 

tt | 

9) 

Einde registratie 

2200 

1" 

PRINT 

II 1 . 
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2210 RETURN 

3000 KE=VAL(INKEY$) 

3010 IF (KE=0> THEN 3000 
3020 IF <KE=9> THEN 3170 
3030 IF (KE<1) OR (KE>6) THEN BEEP:GOTO 3 
000 

3040 LOCATE 3, (KE+3),1 

3050 SOUND 7,&B11110101 

3060 SOUND 6,30 

3070 FOR F=50 TO 1 STEP -1 

3080 SOUND 0,F 

3090 SOUND 1,10 

3100 SOUND 8,F/7 

3110 SOUND 9,10 

3120 NEXT 

3130 SOUND 8,0 

3140 SOUND 9,0 

3150 LOCATE 3, <KE+3),0 

3160 CO(KE)=CO(KE)+l 

3170 RETURN 

4000 FOR F=0 TO 13 

4010 LOCATE 0,F 

4020 PRINT ” 

M 

4030 NEXT 
4040 LOCATE 0,0 

4050 PRINT ",-- 

_ tt 

4060 PRINT ”| Resultaten MSX-verkiezing 

r 

4070 PRINT ” L 

__i ti 

4080 PRINT ” r 

_I tt 

4090 PRINT "| 

I” 

4100 PRINT "I 


4110 PRINT " 

r 

4120 PRINT " 
I” 

4130 PRINT " 
I” 

4140 PRINT " 
I” 

4150 PRINT ” 

i» 


Sony HB-F700P : C ] 
Goldstar FC-200 : [ ] 
Philips NMS 8280 : [ I 
Sony HB-F9P : [ ] 
Philips VG8235 : I ] 
Ander type : [ ] 


2000: Dit is de initialisatie. De funktietoetsen worden 
van het scherm gehaald, de kleur en breedte worden 
ingesteld, de variabelen die beginnen met de letters 
C t/m K worden als integer gedefinieerd (dit leert u 
later nog) en er wordt een arrag van 7 elementen 
aangemaakt (waarvan we er slechts 6 gebruiken. Ik 
ben niet gewend element 0 te benutten, maar dat 
hangt voor een deel van uzelf af). 

Het scherm wordt getekend en de invoer kan begin¬ 
nen. 

3000: Hier vindt de eigenlijke registratie plaats. Als 
de keuze tussen 1 en 6 ligt wordt het betreffende 
type computer opgehoogd in de array. Is de invoer 9 
dan wordt de invoer gestaakt (zie ook regel 1010) en 
een ander nummer geeft een BEEP. 

4000: De resultaten van het telefonische onderzoek 
worden in de laatste subroutine aan de gebruiker 
getoond. Een uitbreiding hierop zou kunnen zijn dat 
de tabel gesorteerd wordt op aantal, zodat de meest 
voorkomende computer bovenaan staat. 

Naast sortering kunnen we dit programma nog uit¬ 
breiden door een veld toe te voegen, bijvoorbeeld het 
aantal zakelijke gebruikers van de computer. Als we 
dit in dezelfde array willen opslaan als de computers, 
hebben we aan 1 dimensie niet genoeg: we gaan in 
meerdere dimensies denken! 

DIM CO( 6, 8) 

Hierbij hebben we dus een rij- en kolomnummer nodig 
om een gegeven te vinden of op te slaan. Nu zijn we 
in staat om (na aanpassing van het programma) twee 
gegevens per computer te bewaren, namelijk op de 
volgende manier: 

Toets 1 wordt ingedrukt, het aantal (in dit geval 
element 1,1) wordt opgehoogd. Dan geeft men weer 1 
in als antwoord op de tweede vraag en element 1,2 
wordt opgehoogd. Nu hebben we vastgelegd dat com¬ 
puter 1 aanwezig is en dat er 1 zakelijke gebruiker 
aanwezig is. Hoe de velden precies liggen? Kijkt u 
maar: 


4160 PRINT " 


Druk (Esc) voor einde dem 


O 

4170 

1” 

PRINT ” 1 -- 

_i tt 

1 0, O 1 

9,1 1 

O, S 1 

9,3 1 

0,4 1 

0,5 1 

O, 6! 

4180 

4190 

FOR F=1 TO 6 

LOCATE 25,(F+3) 

1 1,0 1 

i,i i 

ï.e i 

1,3 1 

1,4 1 

1,5 1 

1,61 

4200 

4210 

PRINT USING ”####”;CO(F) 

NEXT 

IS ,9 1 

2,1 1 

8,8 1 

8,3 1 

2,4 1 

8,5 1 

8,61 


4220 LOCATE 0,21 
4230 X$=INKEY$ 

4240 IF (X$OCHR$ (27)) THEN 4230 
4250 RETURN 


Ue hebben dus geen 12 velden (6 bij 2), maar 21 (7 
bij 3), omdat van beide indices een waarde 0 aanwe¬ 
zig is. 


Dit programma, dat zowel op MSX-1 als MSH-2 compu¬ 
ters werkt, is een eenvoudig maar doeltreffend voor¬ 
beeld van het gemak van een array. (MSH-1 gebrui¬ 
kers even opletten: regel 2040 werkt bij u niet!) 

Ue registreren een bezit door een bijbehorende toets 
in te drukken. Deze toets (een nummer tussen 1 en 
6) gebruiken we direkt als index in de computertabel 
om meteen het juiste element aan te wijzen en op te 
hogen. 

Het programma werkt als volgt: 


- Tot in de 255e dimensie - 

Alhoewel we het niet kunnen uittekenen, is de com¬ 
puter in staat tot zelfs 255 dimensies in een tabel 
vast te leggen. Om een element hieruit te vissen zult 
u dus 255 indices op moeten geven. Hiervoor zou 
echter een regel nodig zijn van meer dan 255 tekens, 
hetgeen in Basic niet mogelijk is! Hoe bedoel je, blij 
maken met een dooie mus? 
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- Schoonmaken - 

Als u de ruimte die u voor een array gereserveerd 
hebt niet meer nodig denkt te hebben in een pro¬ 
gramma, kunt u dit weer vrijgeven door de ERASE 
opdracht toe te passen: 

ERASE B$ maakt het gebied schoon dat we daarvoor 
met bijvoorbeeld DIM B$(100) hadden gedimensioneerd. 
Omdat de opslag van gegevens in het interne geheu¬ 
gen snel plaatsvindt, verdient zij soms de voorkeur 
boven opslag op diskette of cassette. Het nadeel 
moge duidelijk zijn: als u de stroom van de computer 
afzet, zijn alle bits in hun oorspronkelijke stand 
teruggekeerd en leveren voor u geen enkele 
informatie meer op. Toch is een goed begrip van de 
gegevensopslag van belang als u zich straks wilt 
bezighouden met het aanmaken, vullen en onderhou¬ 
den van databestanden op een extern medium. Ik zeg 
het vaak, maar val toch weer in herhaling: oefen 
veel met arrags, daar ze nog van groot belang zullen 
zijn! 

Veel succes met dit 8e deel en tot de volgende keer... 

Richard Altenburg 
i.s.m. 

Ina Stam 


ABONNEMENTEN 

EEN ABONNEMENT IS 
VOORDELIGER EN JE MIST GEEN 
NUMMERS! 

Een abonnement op de MSX-Gids kost ƒ 40,- 
per 6 nummers en is te verkrijgen door over¬ 
making van dit bedrag op Giro: 5036011 t.n.v. 
J. Herps, Postbus 516, Lelystad. 

Voor België: Bfr. 750 op bankrekeningnummer 
235-0430464-87 bij de Generale Bank te 
Hasselt, t.n.v. J. Herps te Lelystad. 

Abonnementen worden aangegaan voor een 

periode van 12 maanden en de abonnees 
krijgen, voor het verstrijken van het abonne¬ 
ment, een bericht van de uitgeefster en kunnen 
dan hun abonnement verlengen. Indien een ver¬ 
lenging niet gewenst is hoeft verder niet te wor¬ 
den betaald; opzeggen van een abonnement is 
niet nodig, maar wordt wel op prijs gesteld. 

Girobetaalkaarten of Eurocheques (vergeet niet 
het nummer op de achterzijde) voor een abon¬ 
nement kunnen gestuurd worden naar: 
Uitgeverij Herps, 

Postbus 516, 

8200 AM Lelystad. 


NABESTELLINGEN OUDE NUMMERS 
MSX-GIDS: 


De nummers 1 t/m 11 van de MSX Gids zijn GEHEEL 
UITVERKOCHT. Hieronder volgt een overzicht van de 
nummers, welke nog wel verkrijgbaar zijn met een 
beknopte omschrijving van de innoud: 


MSX GIDS NUMMER IS 


LISTIN6S: 

MAZE. SCRAMBLE, DISKLOADER, MSK DUMP SCREEN 2, 
BALLETJE- BALLETJE (MSX-2), TITELDOOS (MSK-S) 
Verder de cursus BASIC, machine taal en Rekenen op 
de MSX. Test NMS- 8280 en 20 softwaretitels be¬ 
schreven. 


MSX-GIDS EXTRA EDITIE X2 


LISTINGS: 

MEXICO GOOIEN, EUROPA PER HELIC0PTER, WERELD PER 
HELIC0PTER, HOU JE VAST!, SPROKKELEN, LIJNTREK¬ 
KEN, JACKPOT, EEN- EN TWINTIGEN, CHANGE CHARAC- 
TER, SCREENDUMP SCREEN 1, RABBIT HOLE, FLYING HE- 
RO. 

Verder softwarerecensies Arkanoid en MSX Artiest 


MSX-GIDS NUMMER 13 

LISTINGS: 

POSTER DESIGNER, JUMPING JACK, WRITING RACE, 
BESTAND (DATA BASE), WOORDENLADDER, SCHUIFPUZ¬ 
ZEL, REKENMATRIX, DE MUUR (MSX-2), BINAIR. 

Verder "Rekenen op de MSX" CS), MSX-Machinetaal (4), 
Test Philips NMS1255 Modem, veel softwarerecensies 
(o.a. Maze of Galious & Q-Bert), spelpoke's en tips. 


MSX-GIDS NUMMER 14 


LISTINGS: 

SPREADSHEET, OPTELLEN EN AFTREKKEN, MENS ERGER 
JE NIET, DOMINEUR, RAIDER 

Verder: MSX-Machlnetaal (5), Rekenen op de MSX (3), 
Leer, Probeer en Programmeer (5) en veel software- 
en adventurerecensies, tips, poke’s, kaarten. 


MSX-6IDS NUMMER 15 

LISTINGS: 

SCREEN 1 EDITOR, BREAK-IT, MUSIC COMPOSER, BARRIÈ¬ 
RE. 

Verder: Rekenen op de MSX (4), Leer, Probeer en Pro¬ 
grammeer (6), MSX Machinetaal (Slot), Hardwaretests 
van Philips NM5 1205 Muziekmodule en NMS 1160 Key¬ 
board + veel softwarerecensies, spel- en adventure- 
tips (o.a. kaart Super Rambo Special). 

Oude nummers zijn te bestellen door overmaking van 
Fl. 7,95 per exemplaar op Postbanknummer 5036011 
t.n.v. J.Herps te Lelustaa. Voor Belgie Bfr. 155 op 
Bankrekeningnummer 235-0430464-87 bij de Generale 
Bank te Hasselt t.n.v. J.Herps, Postbus 516, 8200 AM 
LELYSTAD. 
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Correcties 

en 

aanvullingen 

KRIPY JACK 

Meteen weer een wijziging in een programma uit dit 
nummer. De volgende regels moeten worden 
gewijzigd: 

3380 IF TM<0 THEN 3660 

3680 ST( P) =ST( P)+ 1: IF ST<P)>34 THEN 3960 
3990 CLS 

BREAKIT/SCHEEN 1 EDITOK 

Nu dan -hopelijk- de definitieve wijzigingen voor 
deze programma’s. De eerste correctie betreft 
Breakit en is gelijk aan de vorige en komt van de 
maker zelf, die vorige keer echter niet had gemerkt 
dat de regelnummering was gewijzigd. Uiteraard was 
dit onze fout en we zullen nooit meer RENUM 
gebruiken. 

8030 VDP(1)=VDP( 1)ANOl91: CLSi SCREEN1,2i 
HlDTH38I P0KE&HF3B1,85: VDP(0)«8: VDP(8)=6: 

VDPC 3) -1 59: VDP< 4) -O: VDP( 5) -54: VDP< 6) =7: 
G0SUB8080: VDP( 1)=VDP<1)0R64: VDP( 3) =855: 

VDP< 4)=3: RETURN 

8070 DATA 48, DD, CD,4D,00,83,Cl,1 O,F5,Cl,1 O 
, DD, C9, 01,00, 08, 79, OF, OF, OF, OF, 4F, 1A, 1 3, FE 
, 41,38, 04, D6, 37,1 8, 08, D6, 30, BI, 4F, 10, EA, 79 
, C9, 81,00, 00, 11,00, 08, 01,00, 08, CD, 4A, 00, EB 
, CD, 4D, 00, EB, 1 3, 83, OB, 7B, BI, 80, F1, C9 

8080 RE8T0RE8060: FORI-0TO117: READH*: POKE 
&HDDO0+I,VAL("&H H +H«) : NEXT: DEFUSR0=&HDDOD: 
DEFUSR1 =&HDD00: DEFUSR8=&HDD5D: DUMY=USR1( 81 
): G0SUB8110: DUMY=USRS( 0): P0KE&HDD68, 1 6: 
DUMY=USR8( 0); P0KE&HDD5F, 38: P0KE&HDD68, 40: 
DUMY=USR2(0): P0KE&HDD62,48:DUMY=USRS( 0): RE 
TURN 

De regels 2000, 2040 en 2050 worden uiteraard weer 
REM-regels. 

Dan is er een reddende engel verschenen -met de 
naam Mare van der Zanden- die, in tegenstelling tot 
de maker van het programma zelf, wel een oplossing 
heeft gevonden voor de problemen met de SCREEN 1 
EDITOR voor o.a. de bezitters van de Philips VG8020. 
Tevens geeft hij enkele regels waardoor het 
programma niet telkens opnieuw hoeft geladen te 
worden. Dit is vooral handig voor cassette 
gebruikers. De volgende regels in dit programma 
moeten worden gewijzigd: 

184 Q=PEEK( &HD501) 

185 IF Q=848 THEN DEFUSR7=&HAC5F: 

DUMY=USR7(0): ELSE BLOAD"BL0K1",R 
130 VDP(4)=1 

190 IF Q=848 THEN FOR T=1 TO 5000: NEXTT 
ELSE BLOAD"BL0K8" 


251 O VDP( 1)*168: DUMY=USR3< 0): VDP(3)=159: 

VDP( 0) -8: VDP( 4) =8: VDP( 5) =55: FOR I =10838 
TO 10839:VPOKEI,841: NEXT: VDP( 1) =886: 
P0KE&HF985, O: RETURN 

Voor de volgende correctie moeten we terug naar 
nummer 15. In het artikel 'Rekenen op de MSH’ staat 
een fout die werd opgemerkt door H.W.J. Kerkhof. In 
het onderwerp ’De aardbol’ -in de regels 30 en 100- 
moet de factor 2»P tussen haakjes worden geplaatst. 
De uitkomst wordt hierdoor anders. 

Uit Belgie, van Claude Ladriere, komt een aanpassing 
voor het programma 'Mens Erger Je Niet’ waarmee de 
lichtgele pionnen -moeilijk zichtbaar op de 
donkergele achtergrond- veranderd worden in blauwe 
pionnen: 

540 CIRCLE( X, 97), 4, 4 

71 0 C0L0R4: PSET( 1 0, 64), 1 O: PRINT#1, CHR*( 1) + 

" H“ 

830 DATA 17,16,4,17,168,18 

1000 IFK$="B" OR K*="b" THEN SG=&HE100: 

CG=&HE300: ST=&HE600: CT-&HE800: SK=4: CK=6: 

GOTO 1040 

1080 IF K*=“R“ OR K$="r" THEN SG=&HE3O0: 
CB=8rHEl 00: ST=&HE800: CT=&HE600: SK=6: CK=4: 

GOTO 1040 

Terug naar nummer 13 met J.H.G. van Oosterom, die 
een aanpasing inzond voor het programma Poster 
Designer. Met deze wijziging in het mogelijk om dit 
programma ook te laten werken op de Cannon T-22A 
printer, echter alleen op het kleinste formaat 
(16x14).: 

580 E1$=CHR$( 87)+"S0384“ 

540 E2$=CHR$( 87) +" Tl 2” 

560 E3t=CHR$( 87)+“S0576" 

Alle inzender en meedenkers hartelijk bedankt (en ik 
weet zeker ook namens vele lezers) voor de 
medewerking aan ons blad en onze programma’s. 


Jawel, zo kan uw geld 
óók rollen 

Johan L. kreeg als gepensioneerd chauffeur een her¬ 
senbloeding. Zijn liefste wens was om toch zijn we¬ 
kelijks uitje te blijven houden. Dankzij een aanvullen¬ 
de bijdrage van AVO-Nederland heeft hij nu een rol¬ 
stoel waarmee hij naar zijn harmonieclub gaat. 

Postbus 850, 3800 AW AVO-Nederland 

Amersfoort. Giro 625000 vereniging voor arbeid en welzijn 
Tel. (033) 63 52 14 voor mensen met een handicap 

STEUN ONS WERK WORD LID 
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MSX-2 

240K 

SECTORCOPIER 


TOELICHTING 

Tik eerst listing 1 in. 

Zet dit op disk als 240KC0PY.LDR. Dit programma is 
nodig om het eigenlijke programma naar iHCOOO te 
plaatsen, waardoor de ruimte van £H8000-£HBFFF als 
werkgebied gebruikt kan worden. 

Tik nu listing 2 in (het eigenlijke programma). SAVE 
dit als 240KCOPY.BAS. Start het programma op met: 
RUN "240KC0PY.LDR" 

Met het programma is het mogelijk om GEHELE enkel- 
zijdige (SS) of dubbelzijdige (DS) diskettes te kopië¬ 
ren. Voor enige programma’s kopiëren is het niet ge¬ 
schikt. Het overschrijft de vorige inhoud volkomen. 
Het is alleen geschikt voor MSK2 machines met mini¬ 
maal 128K RAM en bovendien 128K VRAM. 

Bij SS diskettes (24 sektoren tegelijk) hoeft maar 2x 
en bij DS diskettes maar 3x gewisseld te worden van 
diskette (32 sektoren tegelijk) als U gebruik maakt 
van 1 diskdrive. Het programma kan ook met meerde¬ 
re drives werken (A t/m F mits aangesloten) en er 
kan zowel van b.v. A naar B als van B naar A geko¬ 
pieerd worden. Fouten worden al naar gelang de keu¬ 
ze in het begin gemeld, waarna men opnieuw kan be¬ 
ginnen met dezelfde instellingen of opnieuw kan kie¬ 
zen, anders worden fouten gewoon genegeerd en gaat 
het programma door met de volgende set sectoren. 

Tijdens het kopiëren hoort u bij het laden een 
steeds hoger wordende toon en bij het wegschrijven 
een steeds lager wordende toon klinken. Als bij ge¬ 
bruik van 1 diskdrive de diskettes gewisseld dienen 
te worden, hoort U telkens BEEPjes, totdat de dis¬ 
kettes gewisseld zijn en er op de <RETURN> toets is 
gedrukt. Na 2, respektievelijk 3 keer wisselen hoort 
U deze BEEPjes ook. Het is nu niet noodzakelijk om 
diskettes te wisselen. Hierna geeft het programma de 
diskette-inhoud en de ruimte, die nog op de diskette 
over is. Wilt U nu terug naar BASIC, zet dan uw 
computer even uit en aan, daar het programma de 
BASIC geheugenindeling verstoort om zoveel mogelijk 
kopieerruimte te hebben. 

VEEL PLEZIER MET HET PROGRAMMA 


10 ’| LQADER VOOR 240KCOPY.BAS | 

20 COLOR 0:CLS:POKE &HC000, 0:LOCATE 1,3:PR 
INT "POKE&HF676,1:P0KE&HF677, &HC0 : RUN"; CHR 
$ (34);"240KCOPY.BAS" 

30 RESTORE:FOR I=&HD000 TO &HD01A:READ A$: 
POKE I,VAL <”&H"+A$):NEXT:DEF USR=&HD000 :A= 
USR(0) 

40 LOCATE 1,1:PRINT ” ";:NEV 
50 DATA 21, F0,FB,11,18,FC,36,00,23,E7 
60 DATA 20,FA,21,F1,FB,22,F8,F3,21,F0 
70 DATA FB, 22, FA,F3,36,0D,C9 


10 'Wm 240K SECTORKOPIEER WÊÊ 

20 SCREEN 0:WIDTH 80:KEY OFF:COLOR 15,4:DE 

FINT A-Y:LOCATE 0,24,0 

30 PRINT TAB(25);”240K MSX-2 SECTORKOPIEER 
>1 

40 PRINT TAB (25); " 

>1 

50 PRINT TAB(18);"Door: Albert Siersema 
(c) 1988 MSX GIDS” 

60 PRINT:PRINT 

70 PRINT TAB(10);" i- 

- 1 ” 

80 PRINT TAB(10);"| ALLEEN VOOR MSX-2 MET 
128K RAM ÉN 128K VIDEORAM !!! |" 

90 PRINT TAB(10);”| EN MINSTENS 1 FLO 

PPY-DISK DRIVE (SS OF DS) |” 

100 PRINT TAB(10);" '- 


110 FOR 1=1 TO 13:PRINT:NEXT I 
120 LOCATE 0,17:INPUT "Hebt U een enkelzij 
dige (1) of een dubbelzijdige (2) diskdriv 
e (kies 1 of 2>”;DR:IF DR<1 OR DR>2 THEN B 
EEP:GOTO 120 

130 LOCATE 0,17:PRINT SPC(79):LOCATE 0,17: 
INPUT "Moeten fouten gemeld worden";FT$:IF 
FT$="" THEN FT=106 ELSE FT=ASC(FT$)0R32 
140 Dl$=”A”:D2$="A" 

150 LOCATE 0,17:PRINT SPC(79):LOCATE 0,17: 
PRINT "Er wordt gekopieerd van drive ";Dl$ 
naar drive D2$;PRINT SPC(79):LOC 
ATE 0,18:PRINT "Wijzig dit of druk op <RET 
URN> voor deze instelling" 

160 LOCATE 30,17:LINE INPUT Dl$:D1=VAL("&H 
"+LEFTS(DIS,1))-10:LOCATE 44,17:LINE INPUT 
D2$:D2=VAL("&H"+LEFTS(D2$,1))-10 
170 ON ERROR GOTO 680:A=DSKF(Dl+1) 

180 A=DSKF(D2tl) 

190 ON ERROR GOTO 0 

200 GOSUB 740:’■ MT PLAATSEN 

210 A=USR3(0):PRINT "Haal nu de systeemdis 

k uit de drive en "; 

220 IF DR=1 THEN POKE &HD508,&HF8:POKE &HD 
509,24 ELSE POKE &HD508,&HF9:POKE &HD509.3 
2:'U FORMAT CODE EN AANTAL SECTOREN 
230 PRINT "doe het origineel en de kopie i 
n de ge- kozen drives en druk dan op een 
toets";:T$=INPUTS(1):SCREEN 8: SC=0: S2=0 
240 FOR WI=1 TO 2-l*(DR=2> 

250 

260 ’ | LEZEN | 

270 

280 POKE &HD506,Dl:POKE &HD50E,&H3F:’| DRI 
VENR. EN CCF HERSTELLEN 

290 FOR 1=2 TO 7:OUT 254,I:GOSUB830:NEXT I 
: PLAATS IN RAM 

300 OUT 254,1:FOR 1=0 TO 1:SET PAGE 1,1:CL 
S 

310 GOSUB 830:A=USR1(&H0) 

320 GOSUB 830:A=USR1(&H4000) 

330 GOSUB 830:A=USR1(&H8000) 

340 GOSUB 830:A=USR1 (&HC000) :NEXT 1:*| LEB 
S IN VRAM 

350 OU T 254,1:GOSUB 830 
360 

370 ’| SC HRIJVEN j 
380 

390 IF D1=D2 THEN GOSUB 620:’■ WISSEL DISK 
(GELUID) 

400 POKE &HD506,D2: POKE &HD50E,0:’i DRIVEN 
R. EN CCF OP 0 

410 OUT 254,l:A=USR(SC-(24-8*(DR=2>)):IF F 
T=106 THEN IF AO0 THEN 900 
420 FOR 1=2 TO 7:OUT 254,I:GOSUB840:NEXT I 
: ’| SCHRIJF UIT RAM 

430 OUT 254,1:FOR 1=0 TO 1:SET PAGE I,I 
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440 A=USR2(&H0):GOSUB 840 

450 A=USR2(&H4000): GOSUB 840 

460 A=USR2(&H8000): GOSUB 840 

470 A=USR2 (&HC000 ):GOSUB 840:NEXT I:*| SCH 

RIJF UIT VRAM 

480 S2=S2+ <24-8* <DR=2 >) 

490 IF D1=D2 THEN GOSUB 620:'■ WISSEL DISK 
(GELUID) 

500 NEXT VI 

510 ’■■■■■ 

520 ’| KLAAR | 

540 SCREEN 0:COLOR 15,4 
550 FILES HEX$(D2+10)+”:” 

560 PRINT:PRINT "VRIJ: " ;DSKF(D2);"K" 

570 PRINT "Nog een keer kopieeren ?... Dru 
k dan op F5 (Anders zet de komputer uit en 
aan)” 

580 END 

600 WISSEL DISK (WACHT OP <RETURN)) | 

610 ’ ■■■■■■■■■■■ni 

620 A=USR3(0) 

630 BEEP: IF INKEY$OCHR$ (13) THEN 630 
640 RETURN 
650 ’ 

660 ’■ ERROR BIJ DRIVES CONTROLEREN | 

670 * 

680 IF ERR062 THEN STOP ELSE IF ERL=170 T 

HEN DR$=HEX$(D1+10):GOTO 700 

690 IF ERL=180 THEN DR$=HEX$(D2+10) 

700 BEEP:PRINT SPC(97):LOCATE 0,18:PRINT ” 
DRIVE ";DR$;": BESTAAT NIET !! <DRUK OP E 
EN TOETS)”;:T$=INPUTS(1):RÉSUMÉ 140 
710 ’ IIHBBnHHBHm 
720 ’| PLAATS MT EN USR ADRESSEN ■ 

730 - 

740 RESTORE 980:CH=0:FOR I=&HD500 TO &HD54 
8:READ AS:A=VAL(”&H”+AS):CH=CH+A:POKE I,A: 
NEXT I: IF CHO6905 THEN BEEP: PRINT "FOUT I 
N MT-DATA’S !!":END 

750 DEF USR=&HD500:'1 LEES/SCHRIJF 32 SECT 
OREN 

760 DEF USR1=&HD520: ' | KOPIEER RAM-)VRAM 
770 DEF USR2=&HD52F:’i KOPIEER VRAM-)RAM 
780 DEF USR3=&HD53F:’1 STOP DRIVE 
790 RETURN 

800 ’ — ——§ 

810 ’| ROUTINES LEES/SCHRIJF 24/32 SECTORE 
N+GELUID | 

820 ’ — —^—| 

830 SOUND 7, &B11111110:SOUND 8,13: SOUND 0, 
255-SC/5.7:A=USR(SC):SC=SC+ <24-8* <DR=2)): G 
OTO 850 

840 SOUND 7,&B11111110:SOUND 8,13:SOUND 0, 
S2/5.7:A=USR(S2):S2=S2+(24-8*(DR=2)) 

850 IF FT=106 THEN IF AO0 THEN 900 
860 RETURN 

870 ’ WÊÊÊÊÊÊÊÊÊ^^B 

880 DRIVE ERROR | 

890 ’ 

90O SCREEN 0:PLAY ”V1501T255R32CCR32CCR32C 
C”:LOCATE33,12:PRINT "DISK-ERROR !!”:PRINT 
"WILT U DIE FOUT A.U.B VERHELPEN EN DAARN 
A OPNIEUW DRIVES E.D KIEZEN (1) OF NOG” 

910 PRINT "EEN KEER MET DEZE INSTELLINGEN 
DE DISK PROBEREN TE KOPIEEREN (2) ?";:T$=I 
NPUTS (1): BEEP: T=VAL (T$) 

920 IF T=1 THEN GOTO 20 

930 IF T=2 THEN PRINT:GOTO 220 

940 GOTO 900 

950 

960 MACHINETAAL DATA’S | 

970 '■■■■■■■I 


980 DATA 23,23,5E,23,56,3E,00,01,F8,20 
990 DATA 21,00,80,37,3F,CD,44,01,3E,02 
1000 DATA 32, 63, F6,21, F8, F7,78, 77, 23, AF 
1010 DATA 77,C9,23,23,5E,23,56,01,00,40 
1020 DATA 21, 00, 80, CD, 5C, 00, C9, 23, 23, 5E 
1030 DATA 23,56,EB, 01,00,40,11,00,80,CD 
1040 DATA 59,00,C9,06,FF,C5,CD,9F,FD, Cl 
1050 DATA 10,F9,C9 


DISK-DATALISTER 


TOELICHTING 

DISK-DATALISTER is, zoals de naam al zegt, alleen 
geschikt voor diskdrive. Eenzelfde programma voor 
cassette heeft in MSH-GIDS extra editie nr. KI ge¬ 
staan. Dat programma werkt niet goed op systemen 
met een diskdrive, daar het te hoog in het geheugen 
staat (vanaf tHEFOO). Werk je met een diskdrive, dan 
is het zeer goed mogelijk hetzelfde programma in 
BASIC te schrijven. Het bewijs is hier geleverd. Voor 
degenen die niet weten wat de cassette DATA-LISTER 
deed, zal ik het hier nog eens uitleggen: 

Als je een stuk MT hebt geschreven en dit in DATA 
regels in een BASIC programma wilt hebben, dan is 
vaak de enige manier: disassembleren en dat weer in¬ 
typen. Om nu van dit vervelende karwei af te ziin, 
is er de DATA-LISTER. 

DATA-LISTER leest een MT-file van disk en zet in 
een tweede (ASCII) file de MT in DATA- regels, begin¬ 
nend vanaf regel 10 en met stappen van 10. De data 
staat in hexadecimale vorm en er staan 10 data's in 
1 DATA regel. Als laatste data staat er een @. Nu 
kan de ontstane file gemakkelijk achter een stuk 
BASIC geMERGEd worden (wel eerst RENUMmen, als het 
het andere BASIC programma overschrijft). 


10 ! DISK-DATALISTER 
20 ’ DOQR: ALBERT SIERSEMA 
30 ’ (c) 1988 MSX GIDS 
40 ' 

50 MAXFILES=2:DEFINTB-Z: SCREEN0 :WIDTH40:KE 
YOFF:PRINTSPC(11)”DISK-DATALISTER": PRINTSP 
C(ll);STRINGS <15,”-”):PRINT:PRINT”<SPATIE> 
voor directory T$=INPUT$(1):PRINT:PRIN 
T:IFT$=” "THENFILES 

60 PRINT:INPUT”Filenaam ";F$:INPUT"Wegschr 
ijven als ”;WSS:0PENF$AS#1LEN=1: FIELD#1, IA 
SDS:LN=LOF(1): 0PENWSSF0R0UTPUTAS#2: PRINT"M 
omentje... Ik ben bezig" 

70 GET#1:IFASC < D$)< >&HFETHENPRINTF$” is ge 
en MT file !":GOTO110 

80 FORI=1T03:GET#1:D1$=D$:GET#1:AD(I)=ASC( 
Dl$)+256*ASC(D$):NEXT:GL=7:RG=10 
90 RG$=STR$(RG):PRINT#2,RIGHT$(RG$, LEN(RG$ 
)-l);” DATA 

100 FORI=1T09:GET#1:GOSUB120:PRINT#2,RIGHT 
$ (”00"+HBX$ (ASC(D$)),2)",";:NEXT: GET#1: GOS 
UB120:PRINT#2,RIGHT$("00”+HEX$(ASC <D$)), 2) 

:RG=RG+10: GOTO90 

110 PRINT#2,:PRINT:PRINT”Begin: ”HEX$(A 
D(D): PRINT” Eind: ”HEX$ (AD(2)): PRINT"Star 
t: "HEXS(AD(3)):CLOSE: END 
120 GL=GL+1:IFGL=LNTHENRETURN110ELSERETURN 


44 















B? * BB 

3 3 ü 


De MSX-G\’dsen Uhs. 7 en 8 z\ ju dl een Kele 
tïjd uMvehXocKt. mddb de cdsseties vdu 
deze nummers Kebben we nog in voorrdctd. 


CASSETTE 7' 

KAARTENBAK (alleen voor disKdrive, dus 
moei eersi worden overgeeei op een lege 
dteXette. GeschiXt voor MSX1 en E) 

Voor cdsseiie oƒ disX en gescKiKi voor 
MSX1 en 8: 

MINIGOLF 


GETALLEN SPLITSEN (educatief) 
SPIN/SUPLIN (GrdfiscKe grdbjes) 

MORSE TRAINER 
HAASJE OVER (Solitair) 

GRONINGEN EN FRIESLAND PER HELIKOPTER 
(educatief) 


************** 1 **** 


01, CASSETTE 8 staan de volgende program - 
ma's, die allen werXen op cassette en ge- 
scKiKt ei in voor MSX1 en E: 

TENNIS (Classic) 

0THELL0 (Reversie) 

DRENTHE. GELDERLAND, N- en Z-HOLLAND. 
UTRECHT PER HELIKOPTER (educatief) 
INVADER FORCE (Variant Spdce Invdders) 

64 TEKENS + (64 Kdr.per regel op screen E) 

VLAGGEN-QUIZ 

LUCIFER SPEL 

MYSTERY TONER (Ned.tdlig adventure) 

De doos moet leeg, dus bieden wij deze 
twee cassettes samen aan voor de prijs, 
die normaal voor 1 cassette geldt, namelijX 
FL. 15, 

U Kunt dit bedreig overmaXen op postbdnX- 
reXening 90951S t.n.v. A.Debels te LeUstad 
o.v.v. "07 / 08". 

Voor Belgie Bfr. E80,— op BdnXreXening - 
nummer E3S-0430464-87 bij de Generale 
BdnX te Hasselt t.n.v. J.Herps, Postbus 516, 
8E00 AM LELYSTAD. 



DISKETTES 

De programma’s uit de MSX-Gidsen zijn ook op 
diskette verkrijgbaar; zowel op 3.5 inch (voorde 
meeste MSX computers) als op 5.25 inch - dub¬ 
belzijdig -voor de Spectravideo 707 drive. Dis¬ 
kette nr. 1 bevat de belangrijkste programma’s 
van MSX-Gids 1 t/m 3. Een verzameldiskette 
dus. Diskette nr. 4 bevat alle programma’s uit 
Gids nr. 4, diskette nr. 5 uit MSX-Gids nr. 5 enz. 
enz. 

De diskettes starten automatisch op en zijn ge¬ 
heel menugestuurd met diverse keuzemogelijk¬ 
heden en schermen; alles in hi-res graphics. 
D.m.v. een letter-keuze-menu (gebruik de 
HOOFDIetters!) kunnen de programma’s gela¬ 
den of opgestart worden. Het menu bevat ook 
een overzichtsprogramma, dat geschikt is voor 
twee drives en verder zijn er nog enige informa¬ 
tie- en advertentiepagina’s op de diskette aan¬ 
wezig. 


Ook zijn er cassettes leverbaar met de program¬ 
ma’s uit de MSX-Gidsen. Op deze cassettes 
staan tevens de programma’s die alleen ge¬ 
schikt zijn voor diskdrive en deze programma’s 
moeten wel overgezet worden naar diskette en 
kunnen - uiteraard - zonder diskdrive niet ge¬ 
bruikt worden. De cassettes hebben - net als de 
diskettes - hetzelfde nummer als de MSX-Gids 
waarin de programma’s staan en zijn verkrijg¬ 
baar vanaf nummer 7. 

De cassettes kosten ƒ 1 5 - per stuk (België Bfr. 
280) en de diskettes kosten ƒ 25,- p.st. (België 
Bfr. 470). Deze prijs is inclusief verzendkosten. 
Diskettes en cassettes bestellen door overma¬ 
king op giro 909515 t.n.v. A. Debels te Lelystad. 
Voor België kan besteld worden op rekening nr. 
235-0430464-87 bij de Generale Bank te Has¬ 
selt t.n.v. J. Herps, Lelystad. 


VERGEET BIJ DE BESTELLING NIET HET 
CASSETTE- OF DISKETTENUMMER EN DE 
SOORT DISKETTE (3.5/5.25) TE VERMELDEN. 


Op de cassettes en diskettes staan niet de klei¬ 
ne programma’s die horen bij een artikel en het 
listingcontroleprogramma. 
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TURBO 3000 


Naam ! TURBO 5000 
Lev, : RabteK Nederland 
Mach.i MSX 1 & 2 
Prijs: RompacK Fl. 99,= 


Laat ik beginnen met een beknopt overzicht van de moge¬ 
lijkheden van deze cartridge: 

HARDCOPY: Drukt elk aktief beeldscherm af op de printer. 
Routines voor alle 9 MSX schermen. Tekstschermen 0 en 1 
naar elke printer; grafische- en multicolorschermen naar 
MSX- IBM- en Epson compatible printers. Drie snelheden en 
zestien grijstinten. 

TURBQLQAD: Snel iaden en saven voor cassette tot 4600 
baud. 

BACK-UPï Zet mcode programma’s, ook headerless, over van 
tape naar tape en van tape naar disk. 

GLD; Herstelt een BASIC programma na een ’NEW’ of ’RESET’. 

TAPEDIRECTORY: Overzicht van alle programma’s op tape met 
naam, soort programma en alle adressen. 

DISKUTILITIE5: Herkennen alle 8 MSX-disk en MS-DOS forma¬ 
ten; enkel- en dubbelzijdig op 3", 3.5" en 5.25“ drives. 

FILESRECOVERY: Zet gewiste programma’s weer op disk, au¬ 
tomatisch na het intoetsen van de naam; zonder gevaar 
voor andere files, 

FILESDIRECTORY: Namen, lengtes, datums, adressen en le 
sector van alle files. 

FILES PER NAAM: Alle gegevens en sectorgebruik per pro¬ 
gramma op elk moment op te vragen via het submenu: datum, 
tijd, lengte, soort enz. 

FILES SORTEREN: Alfabetisch op naam sorteren van alle 
programma’s en in een nieuwe directory weer naar disk 
schrijven. Keuze in sorteren. 

DEFAULT DRIVEiStelt naar keuze een andere defaultdrive in 
voor alle in- en uitvoer naar disk, zoals onder MSX-DOS. 

VERIFY ON: Controleert alle schrijf en lees opdrachten 
naar en van disk. 

CALL SYSTEM: Initieert MSX-DOS, ook als zonder DOS is op¬ 
gestart, of voert het ’autoexec.bas* programma van de disk 
uit. 


DISK MONITOR: Leest alle sectoren van een disk uit, hexa- 
decimaal of in ASCII. Volgt een heel programma per sector. 



TURBO 5000 (01987 Rototek 

Liereneed -from Areksoft 


KEUZES'! HERM 




_L = 


4 = 

5 = 

6 = 

ËI< 


Filesdirect ory di sk 
F i1 es-recovery disk 
Fi1 es 50rteren disk 
Bac k - U K' Mcode -f i 1 es 
Andere defau 1tdrive 
Msx-dos inste11ing 
Menu cassettesauen 
Stop en reset n=new 
H= Hardcopy screen 


A a n tal d r i ».„• e s 
Te+ du. 11 dr' i e* 


2 

A 


Geef mui keuze in 


Geeft alle formatteringsgegevens, de bootsector, de Fat, 
de directory en de datasectoren. Geeft ook de verborgen 
files op de disk en verandert de naam van de disk naar 
wens. 

Zo, een hele waslijst roet mogelijkheden op 1 cartridge, die 
in de meeste gevallen in de machine kan blijven zitten zo¬ 
dat alle programma’s direct te gebruiken zijn. Tot nu toe 
waren deze mogelijkheden alleen maar realiseerbaar met 
verschillende programma’s die dan ook nog, elke keer dat 
ze nodig waren, opnieuw opgestart moesten worden. 


De vaste lezers van ons blad zal het voorgaande wel 
bekend voorkomen; dit is hetzelfde verhaal, dat al in 
Gids nr. 13 heeft gestaan. Uiteraard staat het er 
weer in voor de nieuwe lezers, maar ook omdat er 
een verbeterde versie is verschenen van deze Turbo 
5000 cartridge. 

De grootste verbetering betreft de (Nederlandse) 
handleiding. Die is nu duidelijker en helemaal com¬ 
pleet. De programma’s -waar in ons vorige exemplaar 
tevergeefs naar werd verwezen- staan er nu echt in. 
Uit de handleiding blijkt nu nog beter, waarom som¬ 
mige onderdelen soms niet (of gedeeltelijk) werken en 
tevens dat de cartridge nog gebruiksvriendelijker is 
geworden. 

Alle kleine foutjes en probleempjes zijn uit het pro¬ 
gramma verwijderd. Bij het overzetten van tape 
naar tape kan nu wel de baudrate gewijzigd worden 
zonder dat het programma blijft hangen. Nel moeten 
de baudrate instellingen (ook bij de andere onderde¬ 
len) heel rustig ingetoetst worden, want anders 
staat er al snel 'ISO' in plaats van 1300. Ook de an¬ 
dere onderdelen zijn verbeterd en de menu’s zijn 
wat vertraagd, zodat het geheel een rustiger beeld 
geeft. 

Op de cartridge valt -voorlopig- niets meer aan te 
merken en daar we nog steeds een heleboel program¬ 
ma’s -die we anders eventueel los zouden moeten 
aanschaffen- krijgen voor een zeer redelijke prijs, 
is de TURBO 5000 echt een aanrader voor iedereen, 
die zeer actief bezig is met zijn MSH computer. 


BEELD uil 

FOUTAFHANDEL. : mi 
GEBRUIKSGEMAK: fififififi 
DOCUMENTATIE : fififififi 
PRIJS BBBB 
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Hallo, daar gaan we weer met een 
nieuwe aflevering van de adventu- 
rerubriek zonder besprekingen dit 
keer, want er zijn de laatste tijd 
alleen arcade adventures uitgeko¬ 
men en die worden door Alfred in 
de "gewone" softwarerubriek onder 
handen genomen. 

TIPS 

TERRAMEH 

Om de Secret Formula te pakken 
te krijgen, heeft elk hoofafiguur 
een apart voorwerp nodig: 

Engelsman: Cricketoall 
Duitser: Beer Barrel 

Amerikaan: Spurs 
Japanner: Flashgun 
Fransman: Unicgcle 

Bij slangen altijd Flute dragen. 

Om te transporteren moet je het 
Energy Crgstal naast de transpor- 
ter op het schaaltje leggen. 

Bij het Cannon moet je net groot¬ 
ste vat buskruit gebruiken. Er 
zijn 3 vaten en als je het ver¬ 
keerde vat gebruikt, ben je dood. 

Bij de vampier moet je het Silver 
Cross dragen. 

Normaal kun je het beste de para¬ 
plu dragen, want dan ga je niet 
dood, als je plotseling diep valt. 

De eerste 4 voorwerpen, die de 
rofessor vraagt: 
ecret Formula 
Coat Hanger 
Batteru 
AtomiclPile 

Het Atomic File ligt in een soort 
askamer, waar je de Anti Radia- 
ion Pins nodig hebt. Maar die kan 
ik nergens vinden. Meet iemand 
misschien, waar ze liggen? 

MICHEL HOOYMANS, HEELBLAADJES- 
PAD 12, 2353 PA LEIDERDORP. TEL. 
071- 891397. 

(NVDR: Sorry Michel, maar de 
kaart die je oijgevoegd had, kun¬ 
nen we helaas niet plaatsen, omdat 
hij met potlood getekend was. Me 
kunnen alleen materiaal gebruiken, 
dat met zwarte inkt getekend is 
en er bovendien netjes uitziet. 
En.... als het er heel professioneel 
uitziet (wrijfletters e.d.) betalen 
we er ook nog voor. 

VRAGEN 

1) Mij komen niet verder met Eg- 
erland 2. Mie kan ons helpen? 
nze verste code is: pijl naar 
links, rots, pijl naar links, hamer, 
brug, schatkist, Medusa slaapt/ 
Medusa kijkt, hamer, eetblok. 


2) Mat moet er gebeuren bij Usas, 
als je een extra cartridge in slot 
2 doet? 

3) Mat betekent de ontploffing 
aan het eind van Usas? 

(Bij de slotplaat jes) 

4) Mie kan mij helpen met Gnome 
Ranger? Hoe kom je voorbij het 
huis van de heks? 

5) Maarom komt de MSK-Gids maar 
eenmaal in de 2 maanden uit en 
niet om de maand? 

JORDEN LENTZE, DIAMANT 40, 2651 
SL BERKEL EN RODENRIJS. TEL. 
01891- 16432 

(NvdR: op de laatste vraag kan ik 
je wel antwoord geven, Jorden. Het 
vereist gewoon teveel tijd om een 
blad als dit voor te bereiden. 
Vooral het testen van de ingezon¬ 
den listings neemt enorm veel tijd 
in beslag. En we willen nog wel 

graag een beetje vrije tijd ook. 

Je geduld wordt nu nog eens extra 
op de proef gesteld, want met dit 
nummer zul je 3 maanden moeten 
doen.) 

MAZE OF 6ALI0US 

Het kruis ligt (op de kaart, die in 
MSH-Gids nr. 14 geplaatst is) 2 
velden naar links van Mereld 2. Ga 
op het tweede plateau staan, 
spring op de linker wand, steek 
achter elkaar door. Pas op! Val wel 
weer terug op dit plateau. Val je 
een plateau lager, spring dan naar 
links. 

Het nut van het kruis is, dat je 
een munitie verliest tegen de 
rote Demonen. In Mereld u) moet 
je schieten pp het kruis, dat op 
zijn borst nangt. Ga daarna 
rechts uit het beeld en ergens in 
de stenen ligt de baby. 

De vaas en de twee steekwapens 
heb ik ook niet kunnen vinden. 

PETER MALEBOER, DE GAARDE 444, 
2542 CV DEN HAAG. TEL. 070- 
671046. 

BBBBBBBXBBBBBBXXXBBBBBBBBBBBB 

THE SABRE 

Voor het verkrijgen van dit 
objekt moet je een paar andere 
objekten hebben. Me denken, dat 
dit de Helmet en Gold Shield zijn. 
Ga naar het veld v/a Mereld 7 een 
naar rechts en dan twee naar be¬ 
neden. Maak de daar aanwezige 
vleermuizen af en de sabel ver¬ 
schijnt vanzelf. 

Verder hebben wij nog een ideetje: 
Het is niet gebruikelijk om ln een 
kamer een uitgang naar links of 


rechts aan te geven zonder dat 
het mogelijk is deze te betreden. 
Dit is net geval met de kamer 
schuin onder Mereld 7. Verder 
staat er in de handleiding, dat er 
156 kamers zijn, terwijl dit er op 
de kaart 146 zijn. Onze oplossing 
is, dat de overige kamers achter 
deze opening zijn. Mie kan dit 
eventueel bevestigen? 

DIAMONDSOFT SOFTMARE CORP., p/a 
APERLOHEVE 69, 8081 JN ELBURG. 

KBBBBBBBBBBBBBBBBBBBBBBBBBBXB 
Ik kan 3 dingen niet vinden: het 
kruis, de dolk en de vaas. Hierbij 

3 eef ik nog een tip: er zijn feeen, 
ie je levensbalk weer vol maken. 
Vlakbij Start is zo'n veld met een 
fee. Vanaf Start naar links lopen 
en in dit volgende veld naar boven 
gaan. Dan kom je in een veld, waar 
links onder een sleuteldeur zit, 
deze doorlopen en dan krijg Je een 
veld vol met "zeepsopbelfen . Hier 
is de fee. Je moet op een bepaalde 
plaats gaan staan met het gezicht 
naar rechts. Deze plaats is op de 
middelste vloer, waar boven je 
hoofd het stenen platform op¬ 
houdt. De belletjes komen samen 
en vormen de fee, die als je haar 
aanraakt in je gaat en je leven 
vol maakt. 

Nu nog een vraag: ik lees wel 
eens, dat je vals kunt spelen met 
een POKE. Hoe moet je dat doen, 
als je een rompack hebt, want de 
computer moet toch eerst uit, als 
je de cartridge insteekt. 

Ik heb in een blad gelezen, dat 
POKE £H41CA,0 je eeuwig leven 
schijnt te geven in Knightmare, 
maar hoe doe ik dat? 

A.SCH0LTEN-R00SMA, V. ASBECK- 
STRAAT 4, 8933 ED LEEUMARDEN. 
TEL. 058- 138468. 

KNIGHTTYME I 

Tot slot een tip, die we telefo¬ 
nisch binnenkregen, om het spel te 
beëindigen: bij de tijdmachine 
Lightning Bolt geven, dan vanaf 
Outpost naar Grangole gaan en 
hier het commando 'IAUNCH TIME¬ 
MACHINE" geven. 

En daarmee zijn we ook meteen 
aan het eind van de adventuretips 
gekomen. Allemaal een fijne va¬ 
kantie toegewenst en.see gou in 

September. 

J0CELYN. 


47 









VIER OP EEN RU_ 

Naam i EYE 

Lev. I ENDURANCE GAMES 
Mach. < MSX 1 & 8 
Prijai CAS. Fl. 39,— 

Eindelijk weer eens een apart spel 
uit Engeland, waar nu pas de eer¬ 
ste MSk- 2 computers op de markt 
zijn gekomen, vandaar dat op,de 
verpakking van EYE staat vermeld, 
dat het spel zowel voor MSH1 als 
MSH2 geschikt is. 

Ege is een bordspel en schijnt in 
het land van herkomst een ware 
rage te zijn. Het bord bestaat uit 
32 gekleurde vakken, die gevormd 
worden door 2 spiralen in een cir¬ 
kel. Er zijn 8 verschillende kleu¬ 
ren met elk 4 vakken, die altijd 
zichtbaar zijn. Door de spiralen te 
laten roteren is het mogelijk de 
zichtbare positie van de vakken 
van iedere kleur te veranderen. 
Deze oositie wordt een patroon ge¬ 
noemd en door het draaien van de 
spiralen worden 4 patronen zicht¬ 
baar: de Lange Spiraal, de Korte 
Spiraal, de Rechte Lijn en de Cir¬ 
kel. Ook wordt op net bord de 
"Status Box" van de spelers ge¬ 
toond. Deze wordt in eerste In¬ 
stantie gebruikt om het aantal 
blokjes ( counters") aan te geven, 
die bij het starten mogen worden 
opgezet en later om de "gecontro¬ 
leerde kleuren" aan te duiden, die 
de speler tijdens het spel kan 
veroveren. 

Het doel van het spel is het ver¬ 
eiste aantal blokjes op de korres- 
ponderende kleurvakken op het 
speelbord te plaatsen. 

Winnaar van de versie voor 2 spe¬ 
lers is degene, die 4 blokjes op 
zijn kleurenpatroon weet te plaat¬ 
sen. Elke speler start met 6 blok¬ 
jes en om beurten mag 1 blokje op 
een vrij vak op het bord ge¬ 
plaatst worden. Degene, die met 
rood speelt, mag eerst. Het aantal 
zetten, dat een speler mag doen, 
hangt af van het hoogste aantal 
blokjes, dat hij op een bepaalde 
kleur heeft staan. Als een speler 
bijvoorbeeld 3 blokjes op grijs, 2 
op groen en 1 op oranje heeft 

staan, mag hij 3 zetten doen. Een 
zet wordt gedaan door het ver¬ 
plaatsen van een eigen blokje 
naar een aangrenzend vak of door 
het draaien van een der spiraal- 
wielen. Dit kan met de klok mee of 
tegen de klok in (Er zijn 16 stap¬ 
pen nodig om het wiel helemaal te 
draaien, waarbij elke stap als 1 
zet telt). Men kan ook beiden 
doen, maar dat blijft afhankelijk 
van het aantal zetten, dat per 
beurt ter beschikking staat. Als 
een speler op een gegeven moment 
tijdens een zet 4 van zijn blokjes 
op een andere kleur dan zijn eigen 
kleur heeft staan, dan wordt nij 
geacht "controle" te hebben over 


deze kleur en dat komt in zijn 
status box te staan. Als er, voor¬ 
dat de speler een zet doet, blokjes 
van zijn tegenstanders op zijn 
"gecontroleerde kleur" liggen, dan 
mogen zij desgewenst een of meer 
van de aanvallende blokjes op een 
vrij vakje op het bord zetten, on¬ 
geacht waar. 

Er zijn ook versies voor 3 of 4 
spelers en er worden in de hand¬ 
leiding nog wat variaties gegeven, 
waarbij oe mogelijkheid oestaat 
tegen de computer te spelen. 



Zo op het eerste gezicht lijkt het 
misschien nogal ingewikkeld, maar 
met het spel erbij valt het alle¬ 
maal best mee. Qua opzet doet het 
denken aan "4 op een rij" of "bo¬ 
ter, kaas en eieren", alleen met 
meer variatie. Voor de liefhebbers 
van bordspellen een aanrader...... 


BEELD mi 

SPELKWALI TEI T: mi 
DOCUMENTATIE : Hm 
PRIJS : 8888 



Exomples of movement to adjacent squares 
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SPELTIPS 

Veel tips lijn binnengekomen voor het spel ’üsas’. We 
hebben ze hier op een rijtje gezet en beginnen met 
de gevolgen van het plaatsen van een ander spel in 
slot 2. r 

MAZE OF GALIOUS: je krijgt meteen 100 punten. 

NEMESIS 2: als beiden 'af' zijn kun je toch doorspe¬ 
len d.m.v. 'continue'. 

F1 SPIRIT: de geheime krachten werken nu altijd. Wit 
kan dubbele hoogte springen en Cles kan in de lucht 
lopen. 

METAL GEAR: je moet nu 2x geraakt worden voor ie 
kracht verliest. 

Oan volgen nog de passwords: 

Ruine 2: JUBA RUINS 
Ruine 3: HARAPPA RUINS 
Ruine 4: GANDHARA RUINS 
Ruine 5: M0HENJ0 DARO 

Het prinsesje (ze heet Bee) is er inderdaad ook, vol¬ 
gens een van de inzenders en wel tussen level 3 en 
4. Als je de shrine door bent en naar level 4 gaat 
zie je haar en krijg je 200 munten. Dit gebeurt ech¬ 
ter alleen als je van level naar level speelt en niet 
als je gebruik maakt van een password voor level 4. 

Alle inzenders zijn het er over eens dat je het 
beste met Cles kan vechten. Als je een deur naar 
een monster hebt geopend, kun ook eerst teruggaan 
om van humeur te wisselen. Je moet echter niet de 
ruine verlaten, want dan is de deur weer dicht. 


Nu een waslijst codes voor Nemesis 1 plus nog wat 
tips. Je kan de codes invoeren door -na het opstar- 
ten- de F1 toets in te drukken en 1 van de volgende 
passwords op te geven: 

HYPER, BAKA, LASER, MISSILE, 5HIELD, 0PTI0N, 
DOUBLÉ, DOWN, M0M0K0. CHIE, AKEMI, SYUKO, CHIAKI, 
NORIKO, SATOE, YASUKO, KINUYO. 

Om in het eerste veld voorbij de 2 vulkanen te ko¬ 
men heb je nodig: MISSILES, LASER en 2x OPTION. Ga 
met je schip boven de linker vulkaan helemaal naar 
boven en blijf daar schieten tot ie verder kunt. In 
de geheime bonusvelden heb je DOUBLÉ en 2x OPTION 
nodig, evt. nog MISSILES, maar geen LASER. 

Bonusveld bij veld 2: aan het einde van dit veld zijn 
3 groepen rode stenen. Bil de tweede groep moet je 
naar beneden gaan en de Se rij stenen van onderaf 
helemaal wegschieten. Nu komt er een soort weggetje 
vrij naar een kamertje. Ga dit kamertje in en haal 
vlug je jogstick naar achter-boven. Lukt alles, dan 
wordt je verder ’geteleport' naar het bonusveld. 

Om in het vierde veld voorbij de vulkaan -die onder¬ 
steboven hangt- te komen, heb je LASER, 2x OPTION 
en liefst nog ? nodig. Ga zo laag mogelijk vliegen (let 
op dat je de grond niet raakt) en blijf schieten tot 
je voorbij de vulkaan bent. 


5!?ntl e 5 P e SK00TER, van Eaglesoft, op de RE¬ 

TURN- toets drukt, kom je in het volgende veld. Bij 
spellen van Methodic Solution kun je met RESET en 
ingedrukte ESC- toets het spel opnieuw laten begin¬ 
nen. a 


Tot slot nog een lijstje met codes voor Eggerland 
Mgsterg (Eggerland 1 dus). 

Alle inzenders bedankt voor hun medewerking! 
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JBaal 


H.exadrffs .j.p.gKft t sport 


.Start 


Knightmare 


Alpharoid 


Bosconian 
Soga's Pinguïn 
Snako it 
Skootor 

Konami's Twinbee 
Batman 

Hyper ralley 


2—2 

2 


2—1 

2 


2—1 
2—1 
3 — 3 
2—1 
2—1 
3—2 
1—1 


8A64 ( 0 :Goon bommen•pijlen 
8FB4 i 0 :Onstorf olijk . met voor 
bommen 


BB3A,X :Aantal levens 
BAAD,X :Aantal hulpvuur 

97BBiX [Aantal levens 
92E8,O :Alleen bovengronds 
onsterfelijk 

B492 i 200 : Ondergronds moor 
Vechtkracht 

QABB,X :Aantal levens 

9345iX sAantal levena (oieron) 

8B02.X iAantal levens 

BACO.X :Aantal levens 

AD02.0 ;Oneindig aantal levens 

A999»Q iOneindig aantal levens 

AF62.0 :Niet slippen in bochten 


C800 

C800 


8700 

C820 


Ö7D7 

87A0 

87D7 

8777 

87D7 

8700 

E0QC 

87D7 


SPELPOKE’S: 

Deel staat voor het aantal machinetaaldelen, waaruit 
het programma bestaat, de BASIC- loader niet meege¬ 
rekend. Daarachter staat in welk deel gePOKE’d moet 
worden, dus 2—1 wil zeggen: 2 delen en poken in deel 
1. Toepassen: 

10 BLOAD-deeir 
20 P0KE AHxxxx.x 
30 DEFUSR«4Hxxxx:A*USR(0) 

Diskdrive gebruikers moeten bij een poke in het 
laatste deel denken om de wachtlus i.v.m. doordraai¬ 
ende drive. H.E. uit Winschoten. 
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NEMESIS 3 

Naam t Balanander 

Lav. i Konami 

Mach.i MSX 1&2 

Prijai RoapacK Fl. 79,50 

Zoals je aan de kop al ziet is Sa¬ 
lamander de derde versie van Ne- 
mesis: mooier, moeiliiker en vol 
met allerlei venijnigheidjes. Een 
waardige opvolger, maar hopelijk 
wel de laatste Nemesia, want Kona¬ 
mi begint de laatste tijd in herha¬ 
lingen te vallen. Wel steeds 
fraaier, maar toch niet echt 
nieuw. Ook deze cartridge bevat 
weer de 8-kanaals soundchip, dus 
gooi de versterker maar open. 

Salamander is grafisch weer een 
topprestatie van de makers en 
qua spel zitten we nu ook aan de 
waanzin, zodat velen dit spel nau¬ 
welijks zullen kunnen spelen en 
het geheel uitspelen van dit arca¬ 
de schietspel is slechts voor enke¬ 
len weggelegd. Alle anderen kunnen 
het ook eens proberen in een van 
de twee opties voor 2 spelers, 
waarbij 1 speler het schip be¬ 
stuurt en de tweede speler schiet. 
Deze tweede speler kan dan met¬ 
een de knop voor de wapenkeuze 
bedienen. 



Salamander kan gebruikt worden 
met de Gamemaster, doch slechts 
beperkt en wanneer het ’stage- 
number' wordt veranderd, kan net 
spel niet worden uitgespeeld. Maar 
goed, de velden kunnen in ieder 
eval bekeken en geprobeerd wor- 
en. 


Niet geheel nieuw, maar toch een 
sensationeel topapel, dat de aan¬ 
schaf echt waard is. 


BEELD : bbbss 

GELUID : bsbbb 

SPELKWALITEIT: sbsbb 
DOCUMENTATIE : bbbsb 

PRIJS : mi 



FLUT JE JONES 

Naam : Indiana Jonas 

and the 

Tampla of Doom 
Lav. i Micro City 
Hach.i MSX 1&8 
Prijs: CAS. Fl. 39,= 

The arcade smash hit! Zo is te 
lezen op de verpakking, die doet 
geloven dat je hier te maken hebt 
met een computerversie van de 
gelijknamige film. Toch trappen 
nog veel computeraars in deze 
fraaie beelden en kreten (dat heb¬ 
ben we op de afgelopen beurs dan 
ook weer veelvuldig gekonstateerd) 
en zo blijven vaak zeer goede 
spellen in een eenvoudig jasje bij 
de winkelier op de plank staan, 
terwijl dit soort verpakkingen al 
snel in de kast van de koper ver¬ 
dwijnt. Indiana Jones is niet 
slecht, maar gewoon van het tgpe 
T3 in een dozijn’. 

Een middelmatig klim- en klauter 
arcade adventure met matige qra- 
phics en geen sensationele gelui¬ 
den. Dungeons onderzoeken, tegen¬ 
standers ontwijken of verslaan, 
diverse monsters enz. enz. Daar 
komt nog bij, dat de besturing erg 
lastig is en ons flutje struikelt 
en valt dan ook regelmatig en is 
soms helemaal niet meer op de 
been te krijgen. 


In de MSK-Gids worden geregeld 
soortgelijke spellen beschreven 
-er komen er nu eenmaal veel van 
op de markt- en daardoor kun je 
ze beter beoordelen en vergelij¬ 
ken. Indiana Jones is slordig in el¬ 
kaar gezet en had een heel wat 
betere recensie kunnen krijgen. 
Vooral als we naar het prijskaart¬ 
je kijken: de concurrenten zijn 
met dit soort cassettes meestal 
zo’n tientje goedkoper. De handlei¬ 
ding is goed, maar niet in het Ne¬ 
derlands. 


BEELD 

BBB 

GELUID 

881 

SPELKWALITEIT: 

BBB 

DOCUMENTATIE : 

1888 

PRIJS : 

BBB 
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Naam i SUPER TRI TORN 
Lev. ! Homesoft 
Hach.i MSX & 

Prijs: Rompack Fl. 99,■ 

Van de Japanse rompacks, die ik 
in dit nummer onder handen heb 
ehad, is dit weer een van de be- 
ere klasse, maar voor ik aan de 
bespreking begin, moet ik toch 
echt even flink tekeer gaan tegen 
de importeur van deze software: 

Ik heb nog nooit zulke slechte 
handleidingen onder ogen gehad! 
We hebben hier zelf ook regelmatig 
Japanse cartridges en als we nog 
even wat meer ervaring krijgen 
met de Japanse tekens, dan kun¬ 
nen we deze nog beter begrijpen 
dan het 'Engels^ dat bij de pro- 

f jramma’s van Homesoft wordt ge- 
everd. In een handleiding van 1 
vel A4 voornamelijk onzin, bergen 
fouten en nog een hoop grammati¬ 
cale waanzin (b.v. het woord YOU 
afbreken: Y aan het eind van de 
regel en OU op de volgende regel). 
Is dat nu echt nodig? Is er werke¬ 
lijk niemand te vinden, die hier 
een begrijpelijk en leesbaar ver¬ 
haal van kan maken? 

Zo niet, stuur dan a.u.b. eerst een 
exemplaar -met de Engelse onzin- 
aan ons, dan krijgen jullie die re¬ 
tour met een Nederlandse -en be¬ 
grijpelijke- beschrijving, want de 
vertaler’ die nu bezig is heeft 
van dit soort rollenspellen hele¬ 
maal geen kaas gegeten. 


Sorry voor dit begin, maar van 
deze ga ik echt uit m’n bol: TRI- 
TORN IS THE BEST STRONG. 

Ik heb een heel lang wakker gele¬ 
gen van deze: THOUGH ITS WORT- 
H CAN BE RESTORED, IT CANNOT 
EKCEED ’STRENGTH’. WHEN ITS 
WORTH TURN OUT ’O’, TRITORN DIE. 
FURTHER THE UPPER IS ’ISOO’. 

Wie denkt met zo’n handleiding 
toch nog het spel te kunnen spe¬ 
len, moet nu maar deze even mee¬ 
lezen: IT MEANS YOUR EHPERIENCE. 
WHEN YOU KNOCK (soms ook nock 
genoemd) DOWN THE ENEMIES, IT 
INCREASE UNDER YOUR OR THE 0P- 
PONENTS. 

Moeten we nu huilen of lachen? Ik 
heb voor het laatste gekozen. 

Goed (of liever gezegd slecht), dan 
nu het spel. Een op en top arcade 
adventure met alle facetten, die 
bij een dergelijk spel maar denk¬ 
baar zijn. Al vechtend, maar dan 
wel op een rustige manier, moeten 
tegenstanders worden vernietigd 
en moeten items worden verzameld. 
Hierbij dienen "Experience", “Hit- 
points e.d. goed in de gaten te 
worden gehouden. Er is een ’win- 
dow’ waar alle gevonden objecten 
worden geprojecteerd en de mees¬ 
ten zijn ook meteen actief. Er is 
een memory -save en -load optie 
en het wegschrijven en laden van 
de status moet ook mogelijk zijn 
via een externe informatiebron, 
maar dat hebben we nog niet kun¬ 


nen uitvinden, dus dat zal wel 
weer gebeuren via een locatie of 
optie tijdens het spel. De handlei¬ 
ding (ook de Japanse) zegt hier¬ 
over niets, maar bij dit soort ad- 
ventures moet meestal vrijwel al¬ 
les zelf gevonden worden. 

In de handleiding staat wel dat 
met ESC het spel gestopt kan 
worden, maar dat is niet juist. 
ESC geeft een pauze en met DEL 
kan net spel pas echt gestopt 
worden. 

Verder is de grafische presentatie 
goed en ook muziek en geluid zijn 
prima. De spelkwaliteit staat op 
een hoog peil, al loopt deze nog 
wat achter bij de recentere rom- 
pack's, want ook dit spel stamt al¬ 
weer uit 1986 en is eigenlijk reeds 
oud. 

Al met al hebben we hier een van 
de betere arcade adventures, want 
meteen in het begin boeit het spel 
al en de verschillende velden sti¬ 
muleren de drang om door te zoe¬ 
ken en te spelen. Een aanrader 
dus en de prijs is best goed voor 
deze kwaliteit. 


BEELD mi 

GELUI D mi 

SPELKWALITEIT: iiin 
DOCUMENTATIE : 8 

PRIJS mi 


SS771MK8 

Bij de softwarerecensies wordt een beoordeling gegeven met sterren, welke de volgende waarden vertegen¬ 
woordigen: a 

8SKSB = ZEER GOED sbbb = GOED aas = REDELIJK aa = MATIG a = SLECHT 
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Nas* i DRAGON KING 
Lev. i Homesoft 
Mach. i MSX S 
Prijs» Ronpack F1. 99,* 


Dit is dan een van de program¬ 
ma’s, waarmee we vorige keer de 
voorkant hadden versierd; heel 
toevallig dat luist dit programma 
nu ook in Nederland verkrijgbaar 
is en dan uiteraard met een be¬ 
knopte Engelse handleiding. 

Dragon King is het bekende ren¬ 
en schietspel, zoals we dat kennen 
van b.v. Konami onder de naam 
Knightmare 1. Je moet -al rennen¬ 
de- tegenstanders vernietigen of 
ontwijken en allerlei objecten ver¬ 
zamelen. Het spel is verdeeld over 
verschillende korte rondes, die af- 

? esloten worden met een gevecht 
egen een of ander vreemd mon¬ 
ster. De velden zitten vol paadjes, 
omwegen, tempels, bomen en rotsen 
en hoort dan ook bij de wat lasti¬ 
ger arcade adventures. De schiet- 
richting komt niet overeen met de 
looprichting -zoals bij de meeste 
spellen gebruikelijk is- maar moet 
apart ingesteld worden, hetgeen de 
bediening extra lastig maakt. Flink 
oefenen is nodig om dit snel onder 
de vingers te krijgen. 


Grafisch ziet het spel er goed uit, 
maar haalt niet de top die bij 
MSX-2 mogelijk is, vandaar dat de 
beoordeling niet de 5 sterren 
krijgt, die veel MSX-2 software 
ten deel valt. Muziek en geluiden 
zijn aardig, meer niet. De spelkwa- 
liteit is goed, maar ook wat dit 
betreft hoort het spel niet bij de 
toppers. Net iets boven de middel¬ 
maat allemaal en dat zal wel ko¬ 
men, omdat het spel alweer een 
jaartje oud is. Tegenwoordig ligt 
de kwaliteit in Japan iets hoger. 
Niet goed, niet slecht en daardoor 
tamelijk prijzig. 


BEELD 
GELUID 

SPELKWALITEIT 
DOCUMENTATIE 
PRI JS 


1111 

lil 

IBII 

II 

III 




TRAAG en VAAG 

Naam : MI RAI 
Lev. i Hoaesoft 
Mach.■ MSX 1 & 8 
Prijsi Ronpack Fl. 99,* 

Dat valt even tegen, zo'n MSX-1 
cartridge tussen alle MSX-2 rom- 
packs van de laatste tijd. Nu ga 
je toch steeds meer de kwaliteiten 
van de MSX-2 waarderen. 

Mirai is een echt arcade adventu- 
re met alle ingrediënten: ervaring, 
wapens, schilden, brandstof enz. 
Met deze items moet je je -al 
schietend- door de velden worste¬ 
len en dat wordt bij dit spel erg 
bemoeilijkt door de vele zwermen 
tegenstanders. 

De spelkwaliteit wordt echter 
sterk benadeeld door de zwakke 
rafische presentatie en het 
rage verloop van het spel. Er 
wordt met veel pasteitintjes ge¬ 
werkt en dat speelt lastig. Het 
laden en saven van de status 
geschiedt d.m.v. passwords en deze 
zijn -gelukkig- gemaakt met onze 
eigen vertrouwde Hollandse letter¬ 
tjes en cijfertjes i.p.v. de Japan¬ 
se priegels. De geluiden, die het 
spel begeleiden, zijn best aardig. 


Verder werkt het spel met keuze¬ 
menu's in Windows, waar vrijwel al¬ 
les in het Engels geschreven 
staat. Ook in het Engels (maar dan 
Homesoft Engels) is de zeer be¬ 
knopte handleiding. 

Al met al een beetje een tegenval¬ 
ler voor een pittige prijs. 


BEELD 

III 

GELUID : 

IIII 

SPELKWALITEI T: 

III 

DOCUMENTATIE : 

II 

PRIJS : 

II 
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2 VERSIES 

Naam i Final Countdown 
Lav. i Hathodic Solutions 
Mach. i MSX 1 of 2 

MSX1 prijzen: 

CAS. Fi. 49,90 
DISK Fl. 59, 9® 

MSXS prijs: 

DISK Fl. 69,9® 

Om voor een groot aantal lezers 
een lang verhaal kort te maken: 
deze programma’s zijn nieuwe -en 
verbeterde- versies van het spel 
’FLIGHTDECK’, waarvan overigens 
geen MSX-2 versie leverbaar was. 

Zo, en voor wie geen flauw idee 
heeft waar ik het over heb, komt 
nu het langere verhaal: 

Om te beginnen de verschillen tus¬ 
sen de Beide versies. Het grote 
onderscheid tussen MSK-1 en 2 zit 
in de grafische mogelijkheden en 
daarin wijken deze twee 
programma’s dan ook sterk af van 
elkaar. Dit wordt meteen al zicht¬ 
baar bij het opstarten van de 
rogramma’s: de MSX-2 versie 
eert een fraai titelscherm. Een 
klein verschil zit nog in de ver¬ 
pakking. De M5X-1 versie zit in de 
onhandig grote kartonnen schuif - 
doos en de MSX-2 versie in een 
veel kleinere CD-box, waardoor we 
meteen bij het geluid aanbeland 
zijn: geen CD kwaliteit, geen MSX 
kwaliteit, maar gewoon wat rom¬ 
meltjes en piepjes. Dit had echt 
wel wat beter gekund, maar is 
daarentegen bij dit soort pro¬ 
gramma’s niet zo erg belangrijk, 
zodat we hiervoor bij de beoorde¬ 
ling geen 0 geven. 

Final Countdown is een uitgebreide 
flightsimulator. Niet alleen moeten 
de verscheidene vliegtuigen, die 
voorhanden zijn, bestuurd worden, 
maar ook moeten start en landing 
op een vliegdekschip worden uitge¬ 
voerd en tal van opdrachten wor¬ 
den volbracht met de toestellen. 

Er zijn meerdere schermen: Scherm 
1 geeft een afbeelding van het 
schip en indicatoren voor de 
scheepsrichting en -snelheid, wind¬ 
richting en -snelheid en de kruis- 
wind over het lanceerdek. Verder 
vinden we hier een overzicht van 
de verschillende vliegtuigen. 
Scherm 2 is de kaart en in dit 
scherm moet het toestel worden 
gevlogen. Ook hier weer allerlei in¬ 
dicatoren, die o.a. de toestand van 

het vliegtuig weergeven. Scherm 3 
geeft een overzicht van het ei¬ 
land, waar de uiteindelijke op¬ 


dracht (het vernietigen van de 
terroristenbasis) moet worden uit¬ 
gevoerd. Tot slot is er nog een 
scherm voor de landingprocedure. 

Omdat er verschillende types 
vliegtuigen zijn, zullen er meerde¬ 
re vluchten nodig zijn om de op¬ 
dracht te kunnen voltooien. Eerst 
zullen verkenningsvluchten moeten 
worden gemaakt met de F4 Phan- 
toms, waarbij o.a. infrarood foto’s 
van het eiland gemaakt kunnen 
worden. Lukt dit alles, dan krijg 

i e een gedetailleerde kaart en 
unnen vluchten worden gemaakt 
met de AE6 Intruder bommenwer¬ 
pers, waarbij je uiteraard wordt 
lastig gevallen door afweerraket¬ 
ten en vijandelijke vliegtuigen. 
Tegen deze vliegtuigen kun je 
weer je eigen F14 Tom Cats ge¬ 
vechtsvliegtuigen inzetten. 

In tegenstelling tot de meeste 
flightsimulators ben je er bij dit 
spel dus niet met alleen opstijgen, 
vliegen en weer landen. Er moet 
heel wat meer worden gedaan en 
je bent met dit spel dus echt wel 
een poosje zoet. Wel moet je van 
dit soort spellen houden, want 


echt veel actie valt er niet te be¬ 
leven. Het komt vooral neer op 
oed opletten en de metertjes in 
e gaten houden. 

Ben je een liefhebber van flightsi¬ 
mulators, dan is dit een uitste¬ 
kend spel. De geluiden (dat hadden 
we al eerder opgemerkt) zijn -jam¬ 
mer genoeg- ver beneden peil. Een 
introdeuntje o.i.d. ontbreekt zelfs 
eheel. Grafisch daarentegen is 
et spel -en vooral de MSX-2 ver¬ 
sie- prima verzorgd en de spelele¬ 
menten zijn ook goed doordacht. 
De programma's zijn voorzien van 
een handleiding -in boekvorm- in 
diverse talen, waaronder Neder¬ 
lands en deze is eveneens prima 
verzorgd. 

De prijzen zijn heel redelijk en je 
krijgt dan ook veel waar voor je 
geld. Een aanrader dus! 


BEELD s 8 s 8 

GELUID : 8 

SPELKWALITEIT: bssb 
DOCUMENTATIE : 88888 

PRIJS 8 8 8 8 
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AANGEBODEN 


Te koop of te ruil originele software: Yie Ar Kung Fu 
(module) Fl.35,®, Spu vs Spu, the Island Caper (disk) 
Fl. 20,®, Beach Heao (disk) Fl. 20,®. Alem Habtemariam, 
Vlissingen. Tel. 01184- 65898. 

Te koop of te ruil originele MSX-1 software. 0.a. 
Storm, Stormbringer, Spg Storg. Fl. 7,50 per bandje. 
Verder een LOGO programma voor Plus4 (Commodore) 
op module en 5.25 disk + handleiding Fl. 10,®. Mike Ha¬ 
venhoek, v.d. Helststraat 32, 8021 VJ Zwolle. Tel. 038- 
543566 

SVI 738 K-Press. 2 drives: 3.5 en 5.25, MSX-D0S, CP/M, 
Wordstar, d-Base-II, modem, printer, datarec., alle 
manuals, div. handboeken, totaal ca. Fl. 5000,®. Ca. 25 
diskettes en veel software w.o. MT-Base. Kompleet 
systeem, werkt perfect. Wegens systeemwisseling 
(zakelijk). Richtprijs Fl. 1750,®. Tel. na 20.00 uur: 
01880- 39208. 

Philips VG-8020 MSX-1 + stofkap + snoeren + 2 boeken 
in org. verpakking. Fl. 200,® Bel naar; Sanne Plaisier 
010- 4129527. 

Toshiba HX-10 MSX-1 incl. joystick, boeken en ruim 
400 programma's. In org. verpakking. Tel. 08855- 
74135 (Jaco). 

Sony HB-201P MSX-1 computer, Philips NMS 1510/00 
datarec. (3 maanden oud). Slipstream prof. X100 
kleurenmonitor, Philips printer VW003U, boeken, 
tijdschriften (o.a. MSX-Gids 3-15), accessoires en veel 
software (o.a. Nemesis 2 en Penguin adv.). P.n.o.t.k. 
Frans v.d. Geer, Raadhuislaan 10, 3271 BT Mijnshee- 
renland. Tel. 01862- 3108 

Epson apricot p80p writer met kabel, adaptor, papier. 
In org. verpakking. Tel. 03462- 65315 (Jochem of 
Onno). 

MT-Viditel cartridge te koop voor Fl. 125,® of ruilen 
tegen MT-Base 2 cartridge. J.P. Stoops, Hoogaars¬ 
straat 3, 5301 KS Zaltbommel. 

Originele spellen: Chiller Fl. 5,® Hunchback Fl. 5,® 
Elidon Fl. 9,95 MSX Classics Fl. 9,95. Tevens gevraagd 
Fl- Spirit (Konami) Tel. 04760- 73383 (na 17.00 uur, 
vragen naar Sjoerd). 

Canon V-20 M5X-1 ♦ WHS Smith datarec. + ca. 100 
spellen + boeken + tijdschriften. In 1 koop Fl. 400,® 
Tel. 05282- 1212 (Rene). 

MSX-2 Sony HB-F9P incl. boeken en software Fl. 225,*. 
Een goedkope overstap van M5X1 naar MSX2. J. v. 
Oostveen, Rietzanger 9, 1628 CL Hoorn. Tel. 02290- 
41570 

Philips MSX-2 type NMS 8250 incl. software, 
tijdschriften en handleidingen. Fl. 750,*. N. Mulders, 
Vossenhoorn 1, 5066 CP Moergestel. Tel. 04243- 1519 

Org. tapes o.a. Flight Deck, Chopper, Donkey Kong, 
Police Academy, Musix, Sallors Delight. Fl. 10,® tot Fl. 
25,® + verzendkosten. Tel. 05282- 1212 (Rene). 

MSX Toshiba computer, compl. met printer, joystick, 
datarec., boeken en software. Fl. 650,*. Tevens 
evraagd Vera Cruz (Ned. versie). Michael de Jong, 
itlaat 6, 1613 CC Grootebroek. Tel. 02285- 12656 

Te koop Vampire Killer Fl. 50,® of ruilen tegen andere 
Konami. Tel. 040- 541481. 


MSX SVI 728 comp., Sanyo DR 202A Cass. Star STX80 
rinter, Philips Music Module. Incl. veel software, 
oeken, kabels en tijdschriften. Fl. 550,® Tel. 085- 
230755 (na 19.00 uur). 

Losse 3.5 inch diskdrive ss.dd merk CHIN0N F-353, 
ykomt uit X'Press, weinig gebruikt Fl. 300,® tevens SVI 
A7B7 drive ss,dd direkt aan te sluiten op SVI-738 
(X’Press) spotprijs Fl. 300,® Tel. 077- 736681 op werk¬ 
dagen na 16.00 uur. 

Philips MSX-2 computer type NMS 8220 + diskdrive 
Sony HBD-50 + datarec. Whsmith ♦ Philips printer VW 
0020 + opbergbak + floppy’s + boeken. Fl. 1100,® Tel. 
03240- 30793 Tna 18.00 uur). 

Org. Ease met handleiding FL 50,® en org. Super Cobra 
Fl. 15,®. Dennis Vink, Penningkruidweg 30, 8042 NR 
Zwolle. Tel. 038- 221197 

Philips NMS 8250 MSX-2 15 mnd. oud met nieuwe 
diskdrive incl. software Fl. 1300,® Tel. 08306- 22727 
(na 16.00 uur, vragen naar Roland of Wilfred). 

Sony HB-75-P met 4 boeken en tijdschriften Fl. 350,*. 
Tel. 05220- 53342 tussen 17.00 en 18.30 uur. 

Sony HBF-9P MSX-2 comp. 11 mnd. oud met mon. kabel 
en ingeb. software (Memovisie). Sony HBD-50 
diskdrive 15 mnd. oud. In 1 koop FL 750,*. Tel. 070- 
999141 

Aackobase2, Aackocalc en Aackotext op 3.5 disk met 
handleiding in 1 koop Fl. 50,*. Joost Basman Tel. 
05910- 40202 

23 org. spellen t.w.v. Fl. 610,® voor Fl. 325,® (o.a. 
Salamander, Sorcery). 

Toshiba HX-10, Electronic datarec., 2 joysticks, vele 
spellen w.o. Konami’s, 3 MSX boeken, vele tijdschrif¬ 
ten (MSX-Gids, MCM, MSX Info e.a.) en kabels. Half 
laar oud (wegens aanschaf MSX-2) Fl. 499,® Huseyin 
Bingol, Berfloweg 55, 7553 JM Hengelo. Tel. 074- 
435800 (Liever niet bellen maar schrijven) 

Philips muziek module + Music Creator (disk) en div 
Megaroms o.a. Vaxol, XYZ, King Kong 2 en Salamander. 
Tel. 01184- 64428 

Wegens aanschaf PC ca. 55 Sony s.s. diskettes met 
software Fl. 15,® incl. disk. Tevens Penguin adv. 
rompack Fl. 45,® en TPX mouse ♦ cheese 142 Fl. 40,®. 
Ook nog andere org. software Fl. 2,50. W.A. Bastein, 
Strienemonde 33, 3261 VC Oud- Beyerland. Tel. 01860- 
18120. 

MSX1 Sony HB-75P, drive Sony HBD-50, printer- 
plotter Sony PRN-C41 ♦ veel software (p.o.t.k.) Tel. 
02/5822597 (Belgie) 

Sony HB-201P + datarec ♦ Joystick + spellen + boeken 
Fl. 500,*. Gerwin de Keyzer, Sportstraat 2, 1541 JL 
Koog a/d Zaan. Tel. 075- 162336 

6 org. spellen op tape te koop, per stuk Fl. 15,® (alles 
MSX-1) Tel. 01718- 25138 (na 18.00 uur). 

Metal Gear (org.) Fl. 55,® + Jewels of Darkness Fl. 45,® 
(ook org.) Tel. 072- 610032. 

Sony HB-F9P MSX-2 + Philips datarec. D6260 ♦ 2 spel- 
cass. (Police academy en Ninja 2). In 1 koop Fl. 500,® 
Tel. 04760- 71119 (tussen 17.00 en 19.00 uur). 
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Goldstar FC200 met JVC diskdrive + interface F303 + 
datarec. Tel. 070- 2125G4. 

MSK-2: VG-B235 incl. 2 disks, boeken en kabels + 
stofkap ♦ joystick Fl. 500,». Tel. 01641- 4G73. Vragen 
naar Martin. 

MSH Canon 64K comp., M5H Canon printer T22A, 
jogstick, Sango datarec. Programma's o.a. Devpac, 
voetbal, bridge (ca. 17 cassettes) + div. boeken. Alles 
weinig gebruikt en in staat van nieuw. Het geheel 
tegen een aantrekkelijk bod te koop. Tel. 020- 154283 

GEVRAAGD 

Programma of listing van de cartridge kraker uit nr. 
11. Evt. ruilen tegen MSH software (112). A. Tinga, 
Wiardastraat 36, 8934 AR Leeuwarden. Tel. 058- 
124789 

MSH printer, geen thermische. Max. prijs Fl. 325,=. 
Tel. 05478- 1198 

Wie heeft voor mij de poke’s voor Grog's Revenge 
BC-II. J. Vermeulen, Adm. de Rugterlaan 1G0, 1215 NE 
Hilversum. 

Cartridges en org. spellen op disk, ruilen tegen div. 
software. Tevens gevraagd kleuren mon. Tel. 070- 
291006. (na 17.00 uur). 

Gezocht backup programma uit Gids nr. 11 door: A.J. 
Firth Tel. 070- 857518 en door Jos, Tel. 020- 324536 

(Turbo) Pascal voor MSH-2 tegen vergoeding of ruilen 
voor spellen (o.a. Kingsvalley, Mopi, Roadfighter, 
schaken, Skg Jaguar verkeerslessen). Karin Kamp, De 
Vecht 22, Woerden. Tel. 03480- 17097 

Gevraagd Konami megarom’s, ook ruilen met Nemesis 2 
en Penguin adv. Tel. 055- 337845 (Remco). 

Gezocht nrs 1,2 en 5 van MSH computer magazine. 
J.Brink. Tel. 038- 652463 na 18.00 uur. 

Gezocht: Song HB-F700 diskdrive versneller Eprom 
met beschrijving om zelf in te bouwen. Prijs ca. Fl. 
25,». Tel. 01184- 64428 

RUILEN 

Ik zou graag mijn org. Konami’s (Maze Of Galious en 
Penguin advJ ruilen tegen Vampire Killer, Hydlide of 
Kinderen v.d. Wind. Ricnard Hietberg, RietaKker 16, 
1541 TT Koog a/d Zaan. Tel. 075- 351920. 

Ik zoek cartridges (Konami, Hal enz.) ruilen tegen ca. 
15 spellen Tel. 03462- 65315 (Jochem of Onno). 

Gezocht: Metal Gear, Penguin adv. Ruilen tegen 1 
cartridge ♦ 1 cas. Keuze uit Track and Field 1, 
Nemesis, Pitfall 2, Feud. (Allen org. en in verpakking). 
Ben Driesenaar, Kennedglaan 6, 3844 BC Harderwijk. 
Tel. 03410- 14410 

Mijn Nemesis 1 (org. cart.) + Protector (org. cas.) 
voor uw Maze of Gauous. Tel. 02508- 1865 (Willem). 

Gevraagd cartridges (MSH1/2) te ruil tegen software 
(MSH1/2) op disk of tape. Tevens iemand gezocht om 
software op disk mee te ruilen. Tel. 055- 556721 
(Rene). 

Nemesis 2 ruilen tegen Metal Gear of Maze of Gali¬ 
ous. Alleen omg. Zevenaar. F. Westerhof, Kampsingel 
4, 6901 JE Zevenaar. 


Wie heeft Penguin adv. en wil die ruilen tegen de 
rompack backupper van Sparrowsoft (org.) K.Kuupers, 
Beekveld 31, 5258 SH Berlicum. 

Wie wil org. Goonies (Konami) cart. ruilen tegen org. 
Maze of Galious cart. Tel. 05207- 2678 (Olaf). 

Originele software te ruil of te koop. 0.a. Nemesis 2, 
Penguin adv. en software op disk. Tel. 055- 337845 
(Remco). 

Wie wil Dawn Patrol en een van de volgende spellen: 
Jack the Nipper 1, Krak-0ut of Alpha Roid (allen org.) 
ruilen tegen Penguin adv. of Nemesis 2 (org.). Tevens 
MSH 1-ers gezocht om software te ruilen op tape 
omg. Amersfoort. Gerard de Weerd, Kennedulaan 49, 
3931 HG Woudenberg. Tel. 03498- 1783 na 15.30 uur, 
donderdag’s na 17.0U uur. 

Wie wil Jewels of Darkness en Who dares Wins ruilen 
tegen Maze of Galious (org.). Ook org. software te 
koop zoals Wag Of The Tiger 1, Starfighter, Pico- 
Pico, Hero e.d. Niek Duine, Kennedulaan 93, 3931 HH 
Woudenberg. Tel. 03498- 1851 na 16.00 uur. 

Te koop of te ruil o.a. Compilationtape 1 i 2, Elidon, 
Ghostbusters, Les Flics, Int. Karate, Confused, 
Tasword MSH-1 en Q-Bert (Konami). Tel. 01748- 14822 
(vragen naar Sander). 

Welke MSH-er wil zijn Philips NMS-1255 modem ruilen 
tegen mijn MT-TELC0M versie 2? Evt. ben ik bereid 
bij te betalen. Richard Lakerveld, J.P. Sweelinck- 
straat 11, 1443 MA Purmerend. Tel. 02990- 27075. 

Te ruil of te koop: Metal Gear en veel org. software 
op disk. Tel. 01621- 17193. Vragen naar Dre. 

Te ruil: Nemesis2 voor Fl Spirit of Salamander. 
Chopper2 en Thunderball MSH-2 te koop of te ruil. 
Tel. 072- 614939 (Erik). 

Gevraagd org. Metal Gear, ruilen tegen org. Vampire 
Killer. Tevens gevraagd MSH-2 software op disk. Tel. 
02279- 1853 (Remco). 

Ik heb compilation tape 3 en Chicken Chase (org.). 
Wie wil dit ruilen tegen Penguin adv. of Maze of Gali¬ 
ous (org.)? Wie heeft voor mij een cartridge backup 
progr. om te ruilen tegen Boom of De Nachtwacht 
(org.). Michel Hooymans, Heelblaadjespad 12, 2353 PA 
Leiderdorp, Tel. 07l- 891997 

Te koop of te ruil Philips graphic tableau, nieuw in 
de doos, slechts lx gebruikt. Kontakt gezocht met 
MSK-ers om software te ruilen, alleen op disk, ben in 
het bezit van een NMS-8280. Tevens te koop of te 
ruil gevraagd Konami cartridges, oude MSH-1 games 
of megaroms. Moeten wel kompleet zijn. Tel. 01660- 
3825 

DIVERSEN 

Welke vriendelijke Philips NMS-8280 bezitter zou voor 
mij een aantal beelden willen digitaliseren? Tel. 
05700- 14680. 

Modem bezitters, log ook eens in bij BBS- Waterland. 
Sinds kort ook veel informatie en software voor 
MSH1 en 2. Lidmaatschap is volkomen gratis! 
1200/1200, 300/300 en 1200/75 bd. 24 uur per dag. Bel 
ook eens. Tel. 02990- 40202. 

MSH Gebruikersgroep West Brabant. Contactclub voor 
elke MSH gebruiker. Informatieadres: Pijnboomstraat 
10, 4731 AT Oudenbosch, Tel. 01652- 12446 
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LISTING CONTROLE PROGRAMMA 2 


DEZE LISTINGTESTER IS VAN TOE¬ 
PASSING OP DE LISTINGS VANAF 
MSX-GIDS NR. 3 

De listingtester is een hulpmiddel voor de lezers die de 
programma’s uit ons blad zelf intikken. Achter de pro¬ 
gramma’s, die met deze tester gecontroleerd kunnen 
worden, staat een controletelling. Door nu zo’n pro¬ 
gramma met deze tester te controleren wordt even¬ 
eens een telling verkregen die -per regel- overeen 
moet komen met de telling in het blad. Zijn de getallen 
achter de regelnummers hetzelfde, dan is de kans erg 
groot dat deze regel goed is overgenomen. Zeker is dit 
echter niet, want wanneer bijvoorbeeld twee letters in 
een regel worden omgewisseld dan is de telling wel 
goed, maar kan het programma toch fouten opleveren. 

WERKWIJZE 

Eerst moet dit controleprogramma FOUTLOOS over¬ 
genomen worden en worden weggeschreven op cas¬ 
sette of diskette als ASCII-file met de volgende 
opdrachten: 

SAVE”CAS:TESTER”, A (voor cassette). 

SAVE”A:TESTER”,A (voor diskette). 

Dit hoeft slechts éénmaal te gebeuren; verder kan dit 
programma voor alle listings worden gebruikt. 

Vervolgens moet het te controleren programma wor¬ 
den ingetikt. Is dit gedaan, dan het programma eerst 
wegschrijven naar cassette of diskette en niet eerst 
RUNen, want bij sommige fouten kan het programma 
blijven hangen en bent u het kwijt; alles moet dan 
opnieuw worden ingetikt. Nu kan het controleprogram¬ 
ma worden ingelezen en achter het te controleren pro¬ 
gramma worden geplaatst met de opdracht: 

MERGE”CAS:TESTER” (voor cassette). 

MERGE”A:TESTER” (voor diskette). 

Vervolgens kan de controle worden gestart met: 

RUN 65000. 

Let erop de fouten te corrigeren in het originele pro¬ 
gramma. Na het laden van het controleprogramma 
staat dit namelijk achter het eigenlijke programma en 
vormt nu één geheel. In sommige gevallen kan dit extra 
stuk programma problemen geven b.v. met de geheu¬ 
genruimte! 

REM-regels worden niet gecontroleerd. Mocht het 
voorkomen dat REM-regels wel exact moeten worden 
overgenomen, dan zal dit bij het desbetreffende pro¬ 
gramma worden vermeld. Bij kleine of eenvoudige pro¬ 
gramma’s wordt geen controletelling geplaatst. Ook 
worden meestal geen tellingen geplaatst bij program¬ 
ma’s die deel uitmaken van een artikel. Deze program¬ 
ma’s (of stukken programma) verschijnen ook meestal 
niet op de cassette of diskette van de programma-ser- 
vice. 


Sommige programma’s hebben een eigen controle. Bij 
deze programma’s ontbreekt de controletelling of staat 
slechts een telling voor het gedeelte dat niet door het 
programma zelf wordt gecontroleerd. 

(Meestal BASIC-gedeeltes bij een machinetaal pro¬ 
gramma). 


65000 • 

65010 ’ 

65020 * 

65030 • 

65040 ’ 

65050 ’ 

65060 ’ 

65070 CLS: CLEAR: SCREEIT 0:VIDTH 40:PRI 
RT 

65080 PRIITT "Weergave vla beeldscherm 
of printer?" 

65090 PRIRT :PRIRT ”B of P?: ” 

65100 X$=IRKEYS: IF X$<>”B” AMD X$<>"P 
” THER 65100 
65110 START=32769! 

65120 RG=START+2: T=0 
65130 REM 

65140 VR=PEEK (START ) -F256*PEEK (START+1 
) 

65150 RR=PEEK(RG>+256*PEEK<RG+1> 

65160 IF VR=0 THER 65270 
65170 IF RR>=65000! THER 65270 
65180 S=0:FOR I=RG+2 TO VR-1 
65190 A=PEEK(I) 

65200 IF A=143 THER I=VR:GOTO 65220 
65210 S= S+A:REXT 
65220 S=SMOD256 
65230 T=T+S 

65240 IF X$="B" THER PRIRT USIHG "Reg 
el:##### - ###'»; RR, S: GOTO 65260 
65250 LPRIRT USIRG "Regel:##### - ### 
” ; RR,S 

65260 START=VR: RG=VR+2:GOTO 65140 
65270 IF X$="P” THER 65290 
65280 PRIRT:PRIRT "Totaal: ”;T: ERD 
65290 LPRIRT "Totaal: ";T: ERD 


Er staat geen 'zelftest’ meer bij dit controleprogramma 
daar er afwijkingen in de telling kunnen voorkomen 
wanneer de controle via het beeldscherm plaatsvindt 
of wanneer het programma al een keer is geRUNd. Om 
dezelfde reden dient het te controleren programma ook 
alleen ingeladen te worden voor de controle en moet 
men NIET eerst RUN geven. Na het RUNen zal de con¬ 
trole-bij sommige regels-een andere waarde geven!! 

Let goed op de DATA-regels. Hier worden de meeste 
fouten gemaakt. Bij het omwisselen van getallen in 
deze DATAregels wordt wel een juiste telling gegeven, 
maar het programma zal niet (of onjuist) werken! 


* *LISTIRG* TESTER*2***c 
X Door Alfred Debels * 

* (c)1986 De MSX Gids * 

X Amsterdam * 
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The Soft Post 


Het adres voor al uw software, boeken en supplies 
open: dinsdag t/m zaterdag 10 - 17 u 


SALAMANDER 
NEMESIS II 
USAS MSX II 
F1 SPIRIT 


FL 79.50 INHERITANCE FL 19. 
FL 79.50 MINDER FL 19. 
FL 79.50 UORM PARADIS FL 25. 
FL 79.50 KIND.V/D UINDFL 99. 


INDIANA JONES FL 39.00 FLIGHT PACK1 FL 29, 


EYE 

ELITE * 

30 HITS 
FINAL COUNT 


FL 39.00 PLAY HOUSE 
FL 59.00 SCRIBE * 

FL 49.90 MT TELCOM 
FL 59.00 MT BASE 


FINAL COUNT IIFL 69.00 DELTA BASIC 


KINGS BALOON 
RALY X 
CETUS 
MAPPY 
PICO PICO 
MARTIANOIDS 
TRAIL BLAZER 
RIVER RAID 
PATH FINDER 


FL 9.95 MT VIDITEL 
FL 9.95 DISKIT 
FL 9.95 TASUORD 
FL 9.95 TASUORD * 

FL 9.95 TASUORD II 
FL 14.95 TURBO 5000 
FL 14.95 SPACE CHAMP 
FL 14.95 RAMBO 
FL 14.95 KRACH OUT 
RUIM 900 TITELS IN VOORRAAD. 

MET INGANG VAN 1 MEI KOOPAVOND GESLOTEN. 


FL 59, 
FL129. 
FL349, 
FL199, 
FL 89. 
FL199. 
FL 69. 
FL 95. 
FL115. 
FL149. 
FL 99. 
FL 65. 
FL 65. 
FL 14. 


BESTELBON 

TITEL 


TOTAAL 

PORTO 

VOORRUIT BETALING 
REMBOURS 
BETAALCHEQUE 
POSTGIRO: 4526682 


PRIJS 

FL 

FL ««»»)*» 
FL ».**,** 

FL•é•• y •» 
FL »•»•)*» 


CAS/DISK 


C 3 PORTO 
[ ] PORTO 
C 3 PORTO 


Witte de Withstraat 22a 1057 XW AMSTERDAM 

020-123206 




FL 

-4,00 

• 

FL 

10,00 


FL 

4,00 

: 
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JIJ SPEELT 


AANVAL ! 

ESC= AANVAL 
AFBREKEN 
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RISK VARIANT IK g VERSIES 


Bij deze variant van het bordspel RISK speel je 
tegen 2 computerlegers waarbij het de bedoeling is 
alle landen te veroveren. Spel 1 is een puur 
strategie spel en de tweede versie bevat diverse 
gebeurtenissen (extra belastingen, overstromingen 
enz.) die het spel mede bepalen. 

De diskette start automatisch op, is menu- gestuurd 
en bevat een beknopte uitleg. Omdat het spel vrij 
lang kan duren (versie 1 gemiddeld 350 zetten wat 
overeenkomt met ca. 8 speeluren) is er de 
mogelijkheid het spel te onderbreken, waarbij 
automatisch de data wordt gesaved. 


De diskette is verkrijgbaar door overmaking 
van Fl. 32,50 op Postbanknummer 5036011 
t.n.v. J. Herps te Lelystad. 

Voor Belgie: Bfr. 650 op Bankrekening¬ 
nummer 235-0430464-87 bij de Generale Bank 
te Hasselt t.n.v. J. Herps, Postbus 516, 8200 
AM Lelystad. 

Het spel is ook verkrijgbaar bij de MSH 
Softshop, Witte de Uithstraat 22a, 1057 KW 
Amsterdam. 


ILiEEÏ Vftfl iSX-§ 

ILLEEI CP DMETTE LEVEHRMR 
PRIJS! FL JS.St 













































